home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 20.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar 9 13|
|00000040| 3a 30 33 3a 30 33 20 31 | 39 39 38 0a 3b 3b 3b 20 |:03:03 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 67 6e 75 73 |s-20.3/l|isp/gnus|
|000000a0| 2f 6e 6e 68 65 61 64 65 | 72 2e 65 6c 0a 3b 3b 3b |/nnheade|r.el.;;;|
|000000b0| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 32 | emacs v|ersion 2|
|000000c0| 30 2e 34 20 22 45 6d 65 | 72 61 6c 64 22 20 58 45 |0.4 "Eme|rald" XE|
|000000d0| 6d 61 63 73 20 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |macs Lu|cid..;;;|
|000000e0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000f0| 6e 20 32 2e 32 35 20 58 | 45 6d 61 63 73 3b 20 32 |n 2.25 X|Emacs; 2|
|00000100| 32 2d 4d 61 72 2d 39 36 | 2e 0a 3b 3b 3b 20 6f 70 |2-Mar-96|..;;; op|
|00000110| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000120| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000130| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000140| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000150| 69 6e 20 45 6d 61 63 73 | 20 31 39 2e 0a 0a 28 69 |in Emacs| 19...(i|
|00000160| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000170| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000180| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000190| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|000001a0| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|000001b0| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n).. | (string|
|000001c0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001d0| 73 69 6f 6e 20 22 32 30 | 22 29 29 29 0a 20 20 20 |sion "20|"))). |
|000001e0| 20 28 65 72 72 6f 72 20 | 22 60 6e 6e 68 65 61 64 | (error |"`nnhead|
|000001f0| 65 72 2e 65 6c 27 20 77 | 61 73 20 63 6f 6d 70 69 |er.el' w|as compi|
|00000200| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 20 32 30 |led for |Emacs 20|
|00000210| 22 29 29 0a 0a 28 6f 72 | 20 28 62 6f 75 6e 64 70 |"))..(or| (boundp|
|00000220| 20 27 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c | 'curren|t-load-l|
|00000230| 69 73 74 29 20 28 73 65 | 74 71 20 63 75 72 72 65 |ist) (se|tq curre|
|00000240| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 6e 69 6c |nt-load-|list nil|
|00000250| 29 29 0a 0a 0a 28 72 65 | 71 75 69 72 65 20 27 6d |))...(re|quire 'm|
|00000260| 61 69 6c 2d 75 74 69 6c | 73 29 0a 23 40 33 38 20 |ail-util|s).#@38 |
|00000270| 2a 4d 61 78 20 6c 65 6e | 67 74 68 20 6f 66 20 74 |*Max len|gth of t|
|00000280| 68 65 20 68 65 61 64 20 | 6f 66 20 61 72 74 69 63 |he head |of artic|
|00000290| 6c 65 73 2e 1f 0a 28 64 | 65 66 76 61 72 20 6e 6e |les...(d|efvar nn|
|000002a0| 68 65 61 64 65 72 2d 6d | 61 78 2d 68 65 61 64 2d |header-m|ax-head-|
|000002b0| 6c 65 6e 67 74 68 20 34 | 30 39 36 20 28 23 24 20 |length 4|096 (#$ |
|000002c0| 2e 20 2d 36 32 34 29 29 | 0a 23 40 36 37 20 2a 4c |. -624))|.#@67 *L|
|000002d0| 65 6e 67 74 68 20 6f 66 | 20 65 61 63 68 20 72 65 |ength of| each re|
|000002e0| 61 64 20 6f 70 65 72 61 | 74 69 6f 6e 20 77 68 65 |ad opera|tion whe|
|000002f0| 6e 20 74 72 79 69 6e 67 | 20 74 6f 20 66 65 74 63 |n trying| to fetc|
|00000300| 68 20 48 45 41 44 20 68 | 65 61 64 65 72 73 2e 1f |h HEAD h|eaders..|
|00000310| 0a 28 64 65 66 76 61 72 | 20 6e 6e 68 65 61 64 65 |.(defvar| nnheade|
|00000320| 72 2d 68 65 61 64 2d 63 | 68 6f 70 2d 6c 65 6e 67 |r-head-c|hop-leng|
|00000330| 74 68 20 32 30 34 38 20 | 28 23 24 20 2e 20 2d 37 |th 2048 |(#$ . -7|
|00000340| 31 38 29 29 0a 23 40 32 | 33 31 20 2a 41 6c 69 73 |18)).#@2|31 *Alis|
|00000350| 74 20 74 68 61 74 20 73 | 61 79 73 20 68 6f 77 20 |t that s|ays how |
|00000360| 74 6f 20 74 72 61 6e 73 | 6c 61 74 65 20 63 68 61 |to trans|late cha|
|00000370| 72 61 63 74 65 72 73 20 | 69 6e 20 66 69 6c 65 20 |racters |in file |
|00000380| 6e 61 6d 65 73 2e 0a 46 | 6f 72 20 69 6e 73 74 61 |names..F|or insta|
|00000390| 6e 63 65 2c 20 69 66 20 | 22 3a 22 20 69 73 20 69 |nce, if |":" is i|
|000003a0| 6c 6c 65 67 61 6c 20 61 | 73 20 61 20 66 69 6c 65 |llegal a|s a file|
|000003b0| 20 63 68 61 72 61 63 74 | 65 72 20 69 6e 20 66 69 | charact|er in fi|
|000003c0| 6c 65 20 6e 61 6d 65 73 | 0a 6f 6e 20 79 6f 75 72 |le names|.on your|
|000003d0| 20 73 79 73 74 65 6d 2c | 20 79 6f 75 20 63 6f 75 | system,| you cou|
|000003e0| 6c 64 20 73 61 79 20 73 | 6f 6d 65 74 68 69 6e 67 |ld say s|omething|
|000003f0| 20 6c 69 6b 65 3a 0a 0a | 28 73 65 74 71 20 6e 6e | like:..|(setq nn|
|00000400| 68 65 61 64 65 72 2d 66 | 69 6c 65 2d 6e 61 6d 65 |header-f|ile-name|
|00000410| 2d 74 72 61 6e 73 6c 61 | 74 69 6f 6e 2d 61 6c 69 |-transla|tion-ali|
|00000420| 73 74 20 27 28 28 3f 3a | 20 2e 20 3f 5f 29 29 29 |st '((?:| . ?_)))|
|00000430| 1f 0a 28 64 65 66 76 61 | 72 20 6e 6e 68 65 61 64 |..(defva|r nnhead|
|00000440| 65 72 2d 66 69 6c 65 2d | 6e 61 6d 65 2d 74 72 61 |er-file-|name-tra|
|00000450| 6e 73 6c 61 74 69 6f 6e | 2d 61 6c 69 73 74 20 6e |nslation|-alist n|
|00000460| 69 6c 20 28 23 24 20 2e | 20 2d 38 34 33 29 29 0a |il (#$ .| -843)).|
|00000470| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 5c |(byte-co|de "...\|
|00000480| 22 88 c0 c3 c4 5c 22 88 | c0 c5 c6 5c 22 88 c0 c7 |"....\".|...\"...|
|00000490| c8 5c 22 88 c0 c9 ca 5c | 22 87 22 20 5b 61 75 74 |.\"....\|"." [aut|
|000004a0| 6f 6c 6f 61 64 20 6e 6e | 6d 61 69 6c 2d 6d 65 73 |oload nn|mail-mes|
|000004b0| 73 61 67 65 2d 69 64 20 | 22 6e 6e 6d 61 69 6c 22 |sage-id |"nnmail"|
|000004c0| 20 6d 61 69 6c 2d 70 6f | 73 69 74 69 6f 6e 2d 6f | mail-po|sition-o|
|000004d0| 6e 2d 66 69 65 6c 64 20 | 22 73 65 6e 64 6d 61 69 |n-field |"sendmai|
|000004e0| 6c 22 20 6d 65 73 73 61 | 67 65 2d 72 65 6d 6f 76 |l" messa|ge-remov|
|000004f0| 65 2d 68 65 61 64 65 72 | 20 22 6d 65 73 73 61 67 |e-header| "messag|
|00000500| 65 22 20 63 61 6e 63 65 | 6c 2d 66 75 6e 63 74 69 |e" cance|l-functi|
|00000510| 6f 6e 2d 74 69 6d 65 72 | 73 20 22 74 69 6d 65 72 |on-timer|s "timer|
|00000520| 73 22 20 67 6e 75 73 2d | 70 6f 69 6e 74 2d 61 74 |s" gnus-|point-at|
|00000530| 2d 65 6f 6c 20 22 67 6e | 75 73 2d 75 74 69 6c 22 |-eol "gn|us-util"|
|00000540| 5d 20 33 29 0a 23 40 33 | 34 20 52 65 74 75 72 6e |] 3).#@3|4 Return|
|00000550| 20 61 72 74 69 63 6c 65 | 20 6e 75 6d 62 65 72 20 | article| number |
|00000560| 69 6e 20 48 45 41 44 45 | 52 2e 1f 0a 28 64 65 66 |in HEADE|R...(def|
|00000570| 61 6c 69 61 73 20 27 6d | 61 69 6c 2d 68 65 61 64 |alias 'm|ail-head|
|00000580| 65 72 2d 6e 75 6d 62 65 | 72 20 27 28 6d 61 63 72 |er-numbe|r '(macr|
|00000590| 6f 20 2e 20 23 5b 28 68 | 65 61 64 65 72 29 20 22 |o . #[(h|eader) "|
|000005a0| c0 09 c2 42 42 87 22 20 | 5b 61 72 65 66 20 68 65 |...BB." |[aref he|
|000005b0| 61 64 65 72 20 28 30 29 | 5d 20 33 20 28 23 24 20 |ader (0)|] 3 (#$ |
|000005c0| 2e 20 31 33 35 34 29 5d | 29 29 0a 23 40 34 31 20 |. 1354)]|)).#@41 |
|000005d0| 53 65 74 20 61 72 74 69 | 63 6c 65 20 6e 75 6d 62 |Set arti|cle numb|
|000005e0| 65 72 20 6f 66 20 48 45 | 41 44 45 52 20 74 6f 20 |er of HE|ADER to |
|000005f0| 4e 55 4d 42 45 52 2e 1f | 0a 28 64 65 66 61 6c 69 |NUMBER..|.(defali|
|00000600| 61 73 20 27 6d 61 69 6c | 2d 68 65 61 64 65 72 2d |as 'mail|-header-|
|00000610| 73 65 74 2d 6e 75 6d 62 | 65 72 20 27 28 6d 61 63 |set-numb|er '(mac|
|00000620| 72 6f 20 2e 20 23 5b 28 | 68 65 61 64 65 72 20 6e |ro . #[(|header n|
|00000630| 75 6d 62 65 72 29 20 22 | c0 09 c2 0b 46 87 22 20 |umber) "|....F." |
|00000640| 5b 61 73 65 74 20 68 65 | 61 64 65 72 20 30 20 6e |[aset he|ader 0 n|
|00000650| 75 6d 62 65 72 5d 20 34 | 20 28 23 24 20 2e 20 31 |umber] 4| (#$ . 1|
|00000660| 34 38 38 29 5d 29 29 0a | 23 40 33 34 20 52 65 74 |488)])).|#@34 Ret|
|00000670| 75 72 6e 20 73 75 62 6a | 65 63 74 20 73 74 72 69 |urn subj|ect stri|
|00000680| 6e 67 20 69 6e 20 48 45 | 41 44 45 52 2e 1f 0a 28 |ng in HE|ADER...(|
|00000690| 64 65 66 61 6c 69 61 73 | 20 27 6d 61 69 6c 2d 68 |defalias| 'mail-h|
|000006a0| 65 61 64 65 72 2d 73 75 | 62 6a 65 63 74 20 27 28 |eader-su|bject '(|
|000006b0| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 68 65 61 64 65 |macro . |#[(heade|
|000006c0| 72 29 20 22 c0 09 c2 42 | 42 87 22 20 5b 61 72 65 |r) "...B|B." [are|
|000006d0| 66 20 68 65 61 64 65 72 | 20 28 31 29 5d 20 33 20 |f header| (1)] 3 |
|000006e0| 28 23 24 20 2e 20 31 36 | 34 35 29 5d 29 29 0a 23 |(#$ . 16|45)])).#|
|000006f0| 40 34 33 20 53 65 74 20 | 61 72 74 69 63 6c 65 20 |@43 Set |article |
|00000700| 73 75 62 6a 65 63 74 20 | 6f 66 20 48 45 41 44 45 |subject |of HEADE|
|00000710| 52 20 74 6f 20 53 55 42 | 4a 45 43 54 2e 1f 0a 28 |R to SUB|JECT...(|
|00000720| 64 65 66 61 6c 69 61 73 | 20 27 6d 61 69 6c 2d 68 |defalias| 'mail-h|
|00000730| 65 61 64 65 72 2d 73 65 | 74 2d 73 75 62 6a 65 63 |eader-se|t-subjec|
|00000740| 74 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 68 |t '(macr|o . #[(h|
|00000750| 65 61 64 65 72 20 73 75 | 62 6a 65 63 74 29 20 22 |eader su|bject) "|
|00000760| c0 09 c2 0b 46 87 22 20 | 5b 61 73 65 74 20 68 65 |....F." |[aset he|
|00000770| 61 64 65 72 20 31 20 73 | 75 62 6a 65 63 74 5d 20 |ader 1 s|ubject] |
|00000780| 34 20 28 23 24 20 2e 20 | 31 37 38 30 29 5d 29 29 |4 (#$ . |1780)]))|
|00000790| 0a 23 40 33 33 20 52 65 | 74 75 72 6e 20 61 75 74 |.#@33 Re|turn aut|
|000007a0| 68 6f 72 20 73 74 72 69 | 6e 67 20 69 6e 20 48 45 |hor stri|ng in HE|
|000007b0| 41 44 45 52 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ADER...(|defalias|
|000007c0| 20 27 6d 61 69 6c 2d 68 | 65 61 64 65 72 2d 66 72 | 'mail-h|eader-fr|
|000007d0| 6f 6d 20 27 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |om '(mac|ro . #[(|
|000007e0| 68 65 61 64 65 72 29 20 | 22 c0 09 c2 42 42 87 22 |header) |"...BB."|
|000007f0| 20 5b 61 72 65 66 20 68 | 65 61 64 65 72 20 28 32 | [aref h|eader (2|
|00000800| 29 5d 20 33 20 28 23 24 | 20 2e 20 31 39 34 32 29 |)] 3 (#$| . 1942)|
|00000810| 5d 29 29 0a 23 40 33 39 | 20 53 65 74 20 61 72 74 |])).#@39| Set art|
|00000820| 69 63 6c 65 20 61 75 74 | 68 6f 72 20 6f 66 20 48 |icle aut|hor of H|
|00000830| 45 41 44 45 52 20 74 6f | 20 46 52 4f 4d 2e 1f 0a |EADER to| FROM...|
|00000840| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 61 69 6c 2d |(defalia|s 'mail-|
|00000850| 68 65 61 64 65 72 2d 73 | 65 74 2d 66 72 6f 6d 20 |header-s|et-from |
|00000860| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 68 65 61 |'(macro |. #[(hea|
|00000870| 64 65 72 20 66 72 6f 6d | 29 20 22 c0 09 c2 0b 46 |der from|) "....F|
|00000880| 87 22 20 5b 61 73 65 74 | 20 68 65 61 64 65 72 20 |." [aset| header |
|00000890| 32 20 66 72 6f 6d 5d 20 | 34 20 28 23 24 20 2e 20 |2 from] |4 (#$ . |
|000008a0| 32 30 37 33 29 5d 29 29 | 0a 23 40 32 34 20 52 65 |2073)]))|.#@24 Re|
|000008b0| 74 75 72 6e 20 64 61 74 | 65 20 69 6e 20 48 45 41 |turn dat|e in HEA|
|000008c0| 44 45 52 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |DER...(d|efalias |
|000008d0| 27 6d 61 69 6c 2d 68 65 | 61 64 65 72 2d 64 61 74 |'mail-he|ader-dat|
|000008e0| 65 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 68 |e '(macr|o . #[(h|
|000008f0| 65 61 64 65 72 29 20 22 | c0 09 c2 42 42 87 22 20 |eader) "|...BB." |
|00000900| 5b 61 72 65 66 20 68 65 | 61 64 65 72 20 28 33 29 |[aref he|ader (3)|
|00000910| 5d 20 33 20 28 23 24 20 | 2e 20 32 32 32 32 29 5d |] 3 (#$ |. 2222)]|
|00000920| 29 29 0a 23 40 33 37 20 | 53 65 74 20 61 72 74 69 |)).#@37 |Set arti|
|00000930| 63 6c 65 20 64 61 74 65 | 20 6f 66 20 48 45 41 44 |cle date| of HEAD|
|00000940| 45 52 20 74 6f 20 44 41 | 54 45 2e 1f 0a 28 64 65 |ER to DA|TE...(de|
|00000950| 66 61 6c 69 61 73 20 27 | 6d 61 69 6c 2d 68 65 61 |falias '|mail-hea|
|00000960| 64 65 72 2d 73 65 74 2d | 64 61 74 65 20 27 28 6d |der-set-|date '(m|
|00000970| 61 63 72 6f 20 2e 20 23 | 5b 28 68 65 61 64 65 72 |acro . #|[(header|
|00000980| 20 64 61 74 65 29 20 22 | c0 09 c2 0b 46 87 22 20 | date) "|....F." |
|00000990| 5b 61 73 65 74 20 68 65 | 61 64 65 72 20 33 20 64 |[aset he|ader 3 d|
|000009a0| 61 74 65 5d 20 34 20 28 | 23 24 20 2e 20 32 33 34 |ate] 4 (|#$ . 234|
|000009b0| 34 29 5d 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |4)])).(d|efalias |
|000009c0| 27 6d 61 69 6c 2d 68 65 | 61 64 65 72 2d 6d 65 73 |'mail-he|ader-mes|
|000009d0| 73 61 67 65 2d 69 64 20 | 27 6d 61 69 6c 2d 68 65 |sage-id |'mail-he|
|000009e0| 61 64 65 72 2d 69 64 29 | 0a 23 40 32 32 20 52 65 |ader-id)|.#@22 Re|
|000009f0| 74 75 72 6e 20 49 64 20 | 69 6e 20 48 45 41 44 45 |turn Id |in HEADE|
|00000a00| 52 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |R...(def|alias 'm|
|00000a10| 61 69 6c 2d 68 65 61 64 | 65 72 2d 69 64 20 27 28 |ail-head|er-id '(|
|00000a20| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 68 65 61 64 65 |macro . |#[(heade|
|00000a30| 72 29 20 22 c0 09 c2 42 | 42 87 22 20 5b 61 72 65 |r) "...B|B." [are|
|00000a40| 66 20 68 65 61 64 65 72 | 20 28 34 29 5d 20 33 20 |f header| (4)] 3 |
|00000a50| 28 23 24 20 2e 20 32 35 | 34 32 29 5d 29 29 0a 28 |(#$ . 25|42)])).(|
|00000a60| 64 65 66 61 6c 69 61 73 | 20 27 6d 61 69 6c 2d 68 |defalias| 'mail-h|
|00000a70| 65 61 64 65 72 2d 73 65 | 74 2d 6d 65 73 73 61 67 |eader-se|t-messag|
|00000a80| 65 2d 69 64 20 27 6d 61 | 69 6c 2d 68 65 61 64 65 |e-id 'ma|il-heade|
|00000a90| 72 2d 73 65 74 2d 69 64 | 29 0a 23 40 33 33 20 53 |r-set-id|).#@33 S|
|00000aa0| 65 74 20 61 72 74 69 63 | 6c 65 20 49 64 20 6f 66 |et artic|le Id of|
|00000ab0| 20 48 45 41 44 45 52 20 | 74 6f 20 49 44 2e 1f 0a | HEADER |to ID...|
|00000ac0| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 61 69 6c 2d |(defalia|s 'mail-|
|00000ad0| 68 65 61 64 65 72 2d 73 | 65 74 2d 69 64 20 27 28 |header-s|et-id '(|
|00000ae0| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 68 65 61 64 65 |macro . |#[(heade|
|00000af0| 72 20 69 64 29 20 22 c0 | 09 c2 0b 46 87 22 20 5b |r id) ".|...F." [|
|00000b00| 61 73 65 74 20 68 65 61 | 64 65 72 20 34 20 69 64 |aset hea|der 4 id|
|00000b10| 5d 20 34 20 28 23 24 20 | 2e 20 32 37 31 39 29 5d |] 4 (#$ |. 2719)]|
|00000b20| 29 29 0a 23 40 33 30 20 | 52 65 74 75 72 6e 20 72 |)).#@30 |Return r|
|00000b30| 65 66 65 72 65 6e 63 65 | 73 20 69 6e 20 48 45 41 |eference|s in HEA|
|00000b40| 44 45 52 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |DER...(d|efalias |
|00000b50| 27 6d 61 69 6c 2d 68 65 | 61 64 65 72 2d 72 65 66 |'mail-he|ader-ref|
|00000b60| 65 72 65 6e 63 65 73 20 | 27 28 6d 61 63 72 6f 20 |erences |'(macro |
|00000b70| 2e 20 23 5b 28 68 65 61 | 64 65 72 29 20 22 c0 09 |. #[(hea|der) "..|
|00000b80| c2 42 42 87 22 20 5b 61 | 72 65 66 20 68 65 61 64 |.BB." [a|ref head|
|00000b90| 65 72 20 28 35 29 5d 20 | 33 20 28 23 24 20 2e 20 |er (5)] |3 (#$ . |
|00000ba0| 32 38 35 36 29 5d 29 29 | 0a 23 40 34 32 20 53 65 |2856)]))|.#@42 Se|
|00000bb0| 74 20 61 72 74 69 63 6c | 65 20 72 65 66 65 72 65 |t articl|e refere|
|00000bc0| 6e 63 65 73 20 6f 66 20 | 48 45 41 44 45 52 20 74 |nces of |HEADER t|
|00000bd0| 6f 20 52 45 46 2e 1f 0a | 28 64 65 66 61 6c 69 61 |o REF...|(defalia|
|00000be0| 73 20 27 6d 61 69 6c 2d | 68 65 61 64 65 72 2d 73 |s 'mail-|header-s|
|00000bf0| 65 74 2d 72 65 66 65 72 | 65 6e 63 65 73 20 27 28 |et-refer|ences '(|
|00000c00| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 68 65 61 64 65 |macro . |#[(heade|
|00000c10| 72 20 72 65 66 29 20 22 | c0 09 c2 0b 46 87 22 20 |r ref) "|....F." |
|00000c20| 5b 61 73 65 74 20 68 65 | 61 64 65 72 20 35 20 72 |[aset he|ader 5 r|
|00000c30| 65 66 5d 20 34 20 28 23 | 24 20 2e 20 32 39 39 30 |ef] 4 (#|$ . 2990|
|00000c40| 29 5d 29 29 0a 23 40 34 | 36 20 52 65 74 75 72 6e |)])).#@4|6 Return|
|00000c50| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 68 61 72 73 | number |of chars|
|00000c60| 20 6f 66 20 61 72 74 69 | 63 6c 65 20 69 6e 20 48 | of arti|cle in H|
|00000c70| 45 41 44 45 52 2e 1f 0a | 28 64 65 66 61 6c 69 61 |EADER...|(defalia|
|00000c80| 73 20 27 6d 61 69 6c 2d | 68 65 61 64 65 72 2d 63 |s 'mail-|header-c|
|00000c90| 68 61 72 73 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |hars '(m|acro . #|
|00000ca0| 5b 28 68 65 61 64 65 72 | 29 20 22 c0 09 c2 42 42 |[(header|) "...BB|
|00000cb0| 87 22 20 5b 61 72 65 66 | 20 68 65 61 64 65 72 20 |." [aref| header |
|00000cc0| 28 36 29 5d 20 33 20 28 | 23 24 20 2e 20 33 31 34 |(6)] 3 (|#$ . 314|
|00000cd0| 36 29 5d 29 29 0a 23 40 | 35 32 20 53 65 74 20 6e |6)])).#@|52 Set n|
|00000ce0| 75 6d 62 65 72 20 6f 66 | 20 63 68 61 72 73 20 69 |umber of| chars i|
|00000cf0| 6e 20 61 72 74 69 63 6c | 65 20 6f 66 20 48 45 41 |n articl|e of HEA|
|00000d00| 44 45 52 20 74 6f 20 43 | 48 41 52 53 2e 1f 0a 28 |DER to C|HARS...(|
|00000d10| 64 65 66 61 6c 69 61 73 | 20 27 6d 61 69 6c 2d 68 |defalias| 'mail-h|
|00000d20| 65 61 64 65 72 2d 73 65 | 74 2d 63 68 61 72 73 20 |eader-se|t-chars |
|00000d30| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 68 65 61 |'(macro |. #[(hea|
|00000d40| 64 65 72 20 63 68 61 72 | 73 29 20 22 c0 09 c2 0b |der char|s) "....|
|00000d50| 46 87 22 20 5b 61 73 65 | 74 20 68 65 61 64 65 72 |F." [ase|t header|
|00000d60| 20 36 20 63 68 61 72 73 | 5d 20 34 20 28 23 24 20 | 6 chars|] 4 (#$ |
|00000d70| 2e 20 33 32 39 31 29 5d | 29 29 0a 23 40 32 35 20 |. 3291)]|)).#@25 |
|00000d80| 52 65 74 75 72 6e 20 6c | 69 6e 65 73 20 69 6e 20 |Return l|ines in |
|00000d90| 48 45 41 44 45 52 2e 1f | 0a 28 64 65 66 61 6c 69 |HEADER..|.(defali|
|00000da0| 61 73 20 27 6d 61 69 6c | 2d 68 65 61 64 65 72 2d |as 'mail|-header-|
|00000db0| 6c 69 6e 65 73 20 27 28 | 6d 61 63 72 6f 20 2e 20 |lines '(|macro . |
|00000dc0| 23 5b 28 68 65 61 64 65 | 72 29 20 22 c0 09 c2 42 |#[(heade|r) "...B|
|00000dd0| 42 87 22 20 5b 61 72 65 | 66 20 68 65 61 64 65 72 |B." [are|f header|
|00000de0| 20 28 37 29 5d 20 33 20 | 28 23 24 20 2e 20 33 34 | (7)] 3 |(#$ . 34|
|00000df0| 35 36 29 5d 29 29 0a 23 | 40 33 39 20 53 65 74 20 |56)])).#|@39 Set |
|00000e00| 61 72 74 69 63 6c 65 20 | 6c 69 6e 65 73 20 6f 66 |article |lines of|
|00000e10| 20 48 45 41 44 45 52 20 | 74 6f 20 4c 49 4e 45 53 | HEADER |to LINES|
|00000e20| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 61 |...(defa|lias 'ma|
|00000e30| 69 6c 2d 68 65 61 64 65 | 72 2d 73 65 74 2d 6c 69 |il-heade|r-set-li|
|00000e40| 6e 65 73 20 27 28 6d 61 | 63 72 6f 20 2e 20 23 5b |nes '(ma|cro . #[|
|00000e50| 28 68 65 61 64 65 72 20 | 6c 69 6e 65 73 29 20 22 |(header |lines) "|
|00000e60| c0 09 c2 0b 46 87 22 20 | 5b 61 73 65 74 20 68 65 |....F." |[aset he|
|00000e70| 61 64 65 72 20 37 20 6c | 69 6e 65 73 5d 20 34 20 |ader 7 l|ines] 4 |
|00000e80| 28 23 24 20 2e 20 33 35 | 38 30 29 5d 29 29 0a 23 |(#$ . 35|80)])).#|
|00000e90| 40 33 31 20 52 65 74 75 | 72 6e 20 78 72 65 66 20 |@31 Retu|rn xref |
|00000ea0| 73 74 72 69 6e 67 20 69 | 6e 20 48 45 41 44 45 52 |string i|n HEADER|
|00000eb0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 61 |...(defa|lias 'ma|
|00000ec0| 69 6c 2d 68 65 61 64 65 | 72 2d 78 72 65 66 20 27 |il-heade|r-xref '|
|00000ed0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 68 65 61 64 |(macro .| #[(head|
|00000ee0| 65 72 29 20 22 c0 09 c2 | 42 42 87 22 20 5b 61 72 |er) "...|BB." [ar|
|00000ef0| 65 66 20 68 65 61 64 65 | 72 20 28 38 29 5d 20 33 |ef heade|r (8)] 3|
|00000f00| 20 28 23 24 20 2e 20 33 | 37 33 32 29 5d 29 29 0a | (#$ . 3|732)])).|
|00000f10| 23 40 33 37 20 53 65 74 | 20 61 72 74 69 63 6c 65 |#@37 Set| article|
|00000f20| 20 78 72 65 66 20 6f 66 | 20 48 45 41 44 45 52 20 | xref of| HEADER |
|00000f30| 74 6f 20 78 72 65 66 2e | 1f 0a 28 64 65 66 61 6c |to xref.|..(defal|
|00000f40| 69 61 73 20 27 6d 61 69 | 6c 2d 68 65 61 64 65 72 |ias 'mai|l-header|
|00000f50| 2d 73 65 74 2d 78 72 65 | 66 20 27 28 6d 61 63 72 |-set-xre|f '(macr|
|00000f60| 6f 20 2e 20 23 5b 28 68 | 65 61 64 65 72 20 78 72 |o . #[(h|eader xr|
|00000f70| 65 66 29 20 22 c0 09 c2 | 0b 46 87 22 20 5b 61 73 |ef) "...|.F." [as|
|00000f80| 65 74 20 68 65 61 64 65 | 72 20 38 20 78 72 65 66 |et heade|r 8 xref|
|00000f90| 5d 20 34 20 28 23 24 20 | 2e 20 33 38 36 31 29 5d |] 4 (#$ |. 3861)]|
|00000fa0| 29 29 0a 23 40 35 39 20 | 43 72 65 61 74 65 20 61 |)).#@59 |Create a|
|00000fb0| 20 6e 65 77 20 6d 61 69 | 6c 20 68 65 61 64 65 72 | new mai|l header|
|00000fc0| 20 73 74 72 75 63 74 75 | 72 65 20 69 6e 69 74 69 | structu|re initi|
|00000fd0| 61 6c 69 7a 65 64 20 77 | 69 74 68 20 49 4e 49 54 |alized w|ith INIT|
|00000fe0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 61 |...(defa|lias 'ma|
|00000ff0| 6b 65 2d 6d 61 69 6c 2d | 68 65 61 64 65 72 20 23 |ke-mail-|header #|
|00001000| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 69 6e 69 74 |[(&optio|nal init|
|00001010| 29 20 22 c0 c1 5c 6e 5c | 22 87 22 20 5b 6d 61 6b |) "..\n\|"." [mak|
|00001020| 65 2d 76 65 63 74 6f 72 | 20 39 20 69 6e 69 74 5d |e-vector| 9 init]|
|00001030| 20 33 20 28 23 24 20 2e | 20 34 30 30 38 29 5d 29 | 3 (#$ .| 4008)])|
|00001040| 0a 23 40 37 35 20 43 72 | 65 61 74 65 20 61 20 6e |.#@75 Cr|eate a n|
|00001050| 65 77 20 6d 61 69 6c 20 | 68 65 61 64 65 72 20 73 |ew mail |header s|
|00001060| 74 72 75 63 74 75 72 65 | 20 69 6e 69 74 69 61 6c |tructure| initial|
|00001070| 69 7a 65 64 20 77 69 74 | 68 20 74 68 65 20 70 61 |ized wit|h the pa|
|00001080| 72 61 6d 65 74 65 72 73 | 20 67 69 76 65 6e 2e 1f |rameters| given..|
|00001090| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 61 6b 65 |.(defali|as 'make|
|000010a0| 2d 66 75 6c 6c 2d 6d 61 | 69 6c 2d 68 65 61 64 65 |-full-ma|il-heade|
|000010b0| 72 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 6e |r #[(&op|tional n|
|000010c0| 75 6d 62 65 72 20 73 75 | 62 6a 65 63 74 20 66 72 |umber su|bject fr|
|000010d0| 6f 6d 20 64 61 74 65 20 | 69 64 20 72 65 66 65 72 |om date |id refer|
|000010e0| 65 6e 63 65 73 20 63 68 | 61 72 73 20 6c 69 6e 65 |ences ch|ars line|
|000010f0| 73 20 78 72 65 66 29 20 | 22 c0 09 5c 6e 0b 0c 0d |s xref) |"..\n...|
|00001100| 0e 06 0e 07 0e 08 0e 09 | 26 09 87 22 20 5b 76 65 |........|&.." [ve|
|00001110| 63 74 6f 72 20 6e 75 6d | 62 65 72 20 73 75 62 6a |ctor num|ber subj|
|00001120| 65 63 74 20 66 72 6f 6d | 20 64 61 74 65 20 69 64 |ect from| date id|
|00001130| 20 72 65 66 65 72 65 6e | 63 65 73 20 63 68 61 72 | referen|ces char|
|00001140| 73 20 6c 69 6e 65 73 20 | 78 72 65 66 5d 20 31 30 |s lines |xref] 10|
|00001150| 20 28 23 24 20 2e 20 34 | 31 36 36 29 5d 29 0a 28 | (#$ . 4|166)]).(|
|00001160| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 ac 82 |byte-cod|e "..!..|
|00001170| c2 11 c1 0b 42 13 c0 87 | 22 20 5b 62 6f 75 6e 64 |....B...|" [bound|
|00001180| 70 20 6e 6e 68 65 61 64 | 65 72 2d 66 61 6b 65 2d |p nnhead|er-fake-|
|00001190| 6d 65 73 73 61 67 65 2d | 69 64 20 31 20 63 75 72 |message-|id 1 cur|
|000011a0| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 5d 20 |rent-loa|d-list] |
|000011b0| 32 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6e 6e |2).(defa|lias 'nn|
|000011c0| 68 65 61 64 65 72 2d 67 | 65 6e 65 72 61 74 65 2d |header-g|enerate-|
|000011d0| 66 61 6b 65 2d 6d 65 73 | 73 61 67 65 2d 69 64 20 |fake-mes|sage-id |
|000011e0| 23 5b 6e 69 6c 20 22 c0 | c1 5c 6e 54 89 12 21 50 |#[nil ".|.\nT..!P|
|000011f0| 87 22 20 5b 22 66 61 6b | 65 2b 6e 6f 6e 65 2b 22 |." ["fak|e+none+"|
|00001200| 20 69 6e 74 2d 74 6f 2d | 73 74 72 69 6e 67 20 6e | int-to-|string n|
|00001210| 6e 68 65 61 64 65 72 2d | 66 61 6b 65 2d 6d 65 73 |nheader-|fake-mes|
|00001220| 73 61 67 65 2d 69 64 5d | 20 34 5d 29 0a 28 62 79 |sage-id]| 4]).(by|
|00001230| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 4e c2 73 ac 85 |te-code |"..N.s..|
|00001240| c3 c4 c0 5c 22 88 c5 c0 | c1 c6 23 87 22 20 5b 6e |...\"...|..#." [n|
|00001250| 6e 68 65 61 64 65 72 2d | 67 65 6e 65 72 61 74 65 |nheader-|generate|
|00001260| 2d 66 61 6b 65 2d 6d 65 | 73 73 61 67 65 2d 69 64 |-fake-me|ssage-id|
|00001270| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 20 | byte-op|timizer |
|00001280| 28 6e 69 6c 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |(nil byt|e-compil|
|00001290| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 29 |e-inline|-expand)|
|000012a0| 20 65 72 72 6f 72 20 22 | 25 73 20 61 6c 72 65 61 | error "|%s alrea|
|000012b0| 64 79 20 68 61 73 20 61 | 20 62 79 74 65 2d 6f 70 |dy has a| byte-op|
|000012c0| 74 69 6d 69 7a 65 72 2c | 20 63 61 6e 27 74 20 6d |timizer,| can't m|
|000012d0| 61 6b 65 20 69 74 20 69 | 6e 6c 69 6e 65 22 20 70 |ake it i|nline" p|
|000012e0| 75 74 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |ut byte-|compile-|
|000012f0| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 5d 20 34 |inline-e|xpand] 4|
|00001300| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6e 6e 68 |).(defal|ias 'nnh|
|00001310| 65 61 64 65 72 2d 66 61 | 6b 65 2d 6d 65 73 73 61 |eader-fa|ke-messa|
|00001320| 67 65 2d 69 64 2d 70 20 | 23 5b 28 69 64 29 20 22 |ge-id-p |#[(id) "|
|00001330| c0 20 19 c2 8e c3 c4 0d | 5c 22 2a 87 22 20 5b 6d |. ......|\"*." [m|
|00001340| 61 74 63 68 2d 64 61 74 | 61 20 6d 61 74 63 68 2d |atch-dat|a match-|
|00001350| 64 61 74 61 20 28 28 73 | 74 6f 72 65 2d 6d 61 74 |data ((s|tore-mat|
|00001360| 63 68 2d 64 61 74 61 20 | 6d 61 74 63 68 2d 64 61 |ch-data |match-da|
|00001370| 74 61 29 29 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |ta)) str|ing-matc|
|00001380| 68 20 22 5c 5c 60 66 61 | 6b 65 5c 5c 2b 6e 6f 6e |h "\\`fa|ke\\+non|
|00001390| 65 5c 5c 2b 5b 30 2d 39 | 5d 2b 5c 5c 27 22 20 69 |e\\+[0-9|]+\\'" i|
|000013a0| 64 5d 20 33 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |d] 3]).(|byte-cod|
|000013b0| 65 20 22 c0 c1 4e c2 73 | ac 85 c3 c4 c0 5c 22 88 |e "..N.s|.....\".|
|000013c0| c5 c0 c1 c6 23 87 22 20 | 5b 6e 6e 68 65 61 64 65 |....#." |[nnheade|
|000013d0| 72 2d 66 61 6b 65 2d 6d | 65 73 73 61 67 65 2d 69 |r-fake-m|essage-i|
|000013e0| 64 2d 70 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |d-p byte|-optimiz|
|000013f0| 65 72 20 28 6e 69 6c 20 | 62 79 74 65 2d 63 6f 6d |er (nil |byte-com|
|00001400| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00001410| 6e 64 29 20 65 72 72 6f | 72 20 22 25 73 20 61 6c |nd) erro|r "%s al|
|00001420| 72 65 61 64 79 20 68 61 | 73 20 61 20 62 79 74 65 |ready ha|s a byte|
|00001430| 2d 6f 70 74 69 6d 69 7a | 65 72 2c 20 63 61 6e 27 |-optimiz|er, can'|
|00001440| 74 20 6d 61 6b 65 20 69 | 74 20 69 6e 6c 69 6e 65 |t make i|t inline|
|00001450| 22 20 70 75 74 20 62 79 | 74 65 2d 63 6f 6d 70 69 |" put by|te-compi|
|00001460| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00001470| 5d 20 34 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 4).(de|falias '|
|00001480| 6e 6e 68 65 61 64 65 72 | 2d 68 65 61 64 65 72 2d |nnheader|-header-|
|00001490| 76 61 6c 75 65 20 23 5b | 6e 69 6c 20 22 c0 95 c1 |value #[|nil "...|
|000014a0| 20 7b 87 22 20 5b 30 20 | 67 6e 75 73 2d 70 6f 69 | {." [0 |gnus-poi|
|000014b0| 6e 74 2d 61 74 2d 65 6f | 6c 5d 20 32 5d 29 0a 28 |nt-at-eo|l] 2]).(|
|000014c0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 4e c2 73 |byte-cod|e "..N.s|
|000014d0| ac 85 c3 c4 c0 5c 22 88 | c5 c0 c1 c6 23 87 22 20 |.....\".|....#." |
|000014e0| 5b 6e 6e 68 65 61 64 65 | 72 2d 68 65 61 64 65 72 |[nnheade|r-header|
|000014f0| 2d 76 61 6c 75 65 20 62 | 79 74 65 2d 6f 70 74 69 |-value b|yte-opti|
|00001500| 6d 69 7a 65 72 20 28 6e | 69 6c 20 62 79 74 65 2d |mizer (n|il byte-|
|00001510| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|00001520| 78 70 61 6e 64 29 20 65 | 72 72 6f 72 20 22 25 73 |xpand) e|rror "%s|
|00001530| 20 61 6c 72 65 61 64 79 | 20 68 61 73 20 61 20 62 | already| has a b|
|00001540| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 2c 20 63 |yte-opti|mizer, c|
|00001550| 61 6e 27 74 20 6d 61 6b | 65 20 69 74 20 69 6e 6c |an't mak|e it inl|
|00001560| 69 6e 65 22 20 70 75 74 | 20 62 79 74 65 2d 63 6f |ine" put| byte-co|
|00001570| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|00001580| 61 6e 64 5d 20 34 29 0a | 28 64 65 66 61 6c 69 61 |and] 4).|(defalia|
|00001590| 73 20 27 6e 6e 68 65 61 | 64 65 72 2d 70 61 72 73 |s 'nnhea|der-pars|
|000015a0| 65 2d 68 65 61 64 20 23 | 5b 28 26 6f 70 74 69 6f |e-head #|[(&optio|
|000015b0| 6e 61 6c 20 6e 61 6b 65 | 64 29 20 22 c0 70 c1 89 |nal nake|d) ".p..|
|000015c0| 89 89 1a 1b 1c 1d 1e 06 | 1e 07 65 62 88 0e 08 ab |........|..eb....|
|000015d0| 83 c9 63 88 0e 08 ac 88 | ca cb c1 c0 23 85 01 01 |..c.....|....#...|
|000015e0| cc 0e 08 ab 85 65 12 cd | aa 99 ce 0e 06 21 c1 7f |.....e..|.....!..|
|000015f0| 88 60 12 60 cf d0 c1 c0 | 23 ab 85 60 d1 5a ae 81 |.`.`....|#..`.Z..|
|00001600| 60 7d 88 5c 6e 62 88 cf | d2 c1 c0 23 ab 87 cd 95 |`}.\nb..|...#....|
|00001610| d3 20 7b aa 81 d4 5c 6e | 62 88 cf d5 c1 c0 23 ab |. {...\n|b.....#.|
|00001620| 87 cd 95 d3 20 7b aa 81 | d6 5c 6e 62 88 cf d7 c1 |.... {..|.\nb....|
|00001630| c0 23 ab 87 cd 95 d3 20 | 7b aa 81 d8 5c 6e 62 88 |.#..... |{...\nb.|
|00001640| cf d9 c1 c0 23 ab 94 cf | da c1 c0 23 ae 81 60 53 |....#...|...#..`S|
|00001650| cf db c1 c0 23 ae 81 60 | 7b aa 8a dc dd 0e 1e 54 |....#..`|{......T|
|00001660| 89 16 1e 21 50 5c 6e 62 | 88 cf df c1 c0 23 ab 87 |...!P\nb|.....#..|
|00001670| cd 95 d3 20 7b aa 9f cf | e0 c1 c0 23 ab 97 cd 95 |... {...|...#....|
|00001680| d3 20 7b 89 14 ab 8e e1 | e2 0c 5c 22 ab 88 0c cd |. {.....|..\"....|
|00001690| 94 cd 95 4f aa 81 d8 cd | 5c 6e 62 88 cf e3 c1 c0 |...O....|\nb.....|
|000016a0| 23 ab 8f ce 0e 06 21 89 | 13 a7 ab 83 0b aa 84 cd |#.....!.|........|
|000016b0| aa 81 cd 5c 6e 62 88 cf | e4 c1 c0 23 ad 85 cd 95 |...\nb..|...#....|
|000016c0| d3 20 7b 26 09 0e 08 ab | 87 65 62 88 e5 e6 21 88 |. {&....|.eb...!.|
|000016d0| 2e 06 87 22 20 5b 74 20 | 6e 69 6c 20 70 20 6c 69 |..." [t |nil p li|
|000016e0| 6e 65 73 20 69 6e 2d 72 | 65 70 6c 79 2d 74 6f 20 |nes in-r|eply-to |
|000016f0| 62 75 66 66 65 72 2d 72 | 65 61 64 2d 6f 6e 6c 79 |buffer-r|ead-only|
|00001700| 20 63 75 72 20 63 61 73 | 65 2d 66 6f 6c 64 2d 73 | cur cas|e-fold-s|
|00001710| 65 61 72 63 68 20 6e 61 | 6b 65 64 20 22 5c 6e 22 |earch na|ked "\n"|
|00001720| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00001730| 72 64 20 22 5e 5b 32 33 | 5d 5b 30 2d 39 5d 2b 20 |rd "^[23|][0-9]+ |
|00001740| 22 20 76 65 63 74 6f 72 | 20 30 20 72 65 61 64 20 |" vector| 0 read |
|00001750| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00001760| 5c 6e 2e 5c 6e 22 20 32 | 20 22 5c 6e 73 75 62 6a |\n.\n" 2| "\nsubj|
|00001770| 65 63 74 3a 20 22 20 67 | 6e 75 73 2d 70 6f 69 6e |ect: " g|nus-poin|
|00001780| 74 2d 61 74 2d 65 6f 6c | 20 22 28 6e 6f 6e 65 29 |t-at-eol| "(none)|
|00001790| 22 20 22 5c 6e 66 72 6f | 6d 3a 20 22 20 22 28 6e |" "\nfro|m: " "(n|
|000017a0| 6f 62 6f 64 79 29 22 20 | 22 5c 6e 64 61 74 65 3a |obody)" |"\ndate:|
|000017b0| 20 22 20 22 22 20 22 5c | 6e 6d 65 73 73 61 67 65 | " "" "\|nmessage|
|000017c0| 2d 69 64 3a 22 20 22 3c | 22 20 22 3e 22 20 22 66 |-id:" "<|" ">" "f|
|000017d0| 61 6b 65 2b 6e 6f 6e 65 | 2b 22 20 69 6e 74 2d 74 |ake+none|+" int-t|
|000017e0| 6f 2d 73 74 72 69 6e 67 | 20 6e 6e 68 65 61 64 65 |o-string| nnheade|
|000017f0| 72 2d 66 61 6b 65 2d 6d | 65 73 73 61 67 65 2d 69 |r-fake-m|essage-i|
|00001800| 64 20 22 5c 6e 72 65 66 | 65 72 65 6e 63 65 73 3a |d "\nref|erences:|
|00001810| 20 22 20 22 5c 6e 69 6e | 2d 72 65 70 6c 79 2d 74 | " "\nin|-reply-t|
|00001820| 6f 3a 20 22 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |o: " str|ing-matc|
|00001830| 68 20 22 3c 5b 5e 3e 5d | 2b 3e 22 20 22 5c 6e 6c |h "<[^>]|+>" "\nl|
|00001840| 69 6e 65 73 3a 20 22 20 | 22 5c 6e 78 72 65 66 3a |ines: " |"\nxref:|
|00001850| 20 22 20 64 65 6c 65 74 | 65 2d 63 68 61 72 20 31 | " delet|e-char 1|
|00001860| 5d 20 31 33 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |] 13]).(|defalias|
|00001870| 20 27 6e 6e 68 65 61 64 | 65 72 2d 6e 6f 76 2d 73 | 'nnhead|er-nov-s|
|00001880| 6b 69 70 2d 66 69 65 6c | 64 20 27 28 6d 61 63 72 |kip-fiel|d '(macr|
|00001890| 6f 20 2e 20 23 5b 6e 69 | 6c 20 22 c0 87 22 20 5b |o . #[ni|l ".." [|
|000018a0| 28 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |(search-|forward |
|000018b0| 22 09 22 20 65 6f 6c 20 | 27 6d 6f 76 65 29 5d 20 |"." eol |'move)] |
|000018c0| 31 5d 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |1])).(de|falias '|
|000018d0| 6e 6e 68 65 61 64 65 72 | 2d 6e 6f 76 2d 66 69 65 |nnheader|-nov-fie|
|000018e0| 6c 64 20 27 28 6d 61 63 | 72 6f 20 2e 20 23 5b 6e |ld '(mac|ro . #[n|
|000018f0| 69 6c 20 22 c0 87 22 20 | 5b 28 62 75 66 66 65 72 |il ".." |[(buffer|
|00001900| 2d 73 75 62 73 74 72 69 | 6e 67 20 28 70 6f 69 6e |-substri|ng (poin|
|00001910| 74 29 20 28 69 66 20 28 | 6e 6e 68 65 61 64 65 72 |t) (if (|nnheader|
|00001920| 2d 6e 6f 76 2d 73 6b 69 | 70 2d 66 69 65 6c 64 29 |-nov-ski|p-field)|
|00001930| 20 28 31 2d 20 28 70 6f | 69 6e 74 29 29 20 65 6f | (1- (po|int)) eo|
|00001940| 6c 29 29 5d 20 31 5d 29 | 29 0a 28 64 65 66 61 6c |l))] 1])|).(defal|
|00001950| 69 61 73 20 27 6e 6e 68 | 65 61 64 65 72 2d 6e 6f |ias 'nnh|eader-no|
|00001960| 76 2d 72 65 61 64 2d 69 | 6e 74 65 67 65 72 20 27 |v-read-i|nteger '|
|00001970| 28 6d 61 63 72 6f 20 2e | 20 23 5b 6e 69 6c 20 22 |(macro .| #[nil "|
|00001980| c0 87 22 20 5b 28 70 72 | 6f 67 31 20 28 69 66 20 |.." [(pr|og1 (if |
|00001990| 28 3d 20 28 66 6f 6c 6c | 6f 77 69 6e 67 2d 63 68 |(= (foll|owing-ch|
|000019a0| 61 72 29 20 3f 5c 74 29 | 20 30 20 28 6c 65 74 20 |ar) ?\t)| 0 (let |
|000019b0| 28 28 6e 75 6d 20 28 69 | 67 6e 6f 72 65 2d 65 72 |((num (i|gnore-er|
|000019c0| 72 6f 72 73 20 28 72 65 | 61 64 20 28 63 75 72 72 |rors (re|ad (curr|
|000019d0| 65 6e 74 2d 62 75 66 66 | 65 72 29 29 29 29 29 20 |ent-buff|er))))) |
|000019e0| 28 69 66 20 28 6e 75 6d | 62 65 72 70 20 6e 75 6d |(if (num|berp num|
|000019f0| 29 20 6e 75 6d 20 30 29 | 29 29 20 28 6f 72 20 28 |) num 0)|)) (or (|
|00001a00| 65 6f 62 70 29 20 28 66 | 6f 72 77 61 72 64 2d 63 |eobp) (f|orward-c|
|00001a10| 68 61 72 20 31 29 29 29 | 5d 20 31 5d 29 29 0a 28 |har 1)))|] 1])).(|
|00001a20| 64 65 66 61 6c 69 61 73 | 20 27 6e 6e 68 65 61 64 |defalias| 'nnhead|
|00001a30| 65 72 2d 70 61 72 73 65 | 2d 6e 6f 76 20 23 5b 6e |er-parse|-nov #[n|
|00001a40| 69 6c 20 22 c0 20 19 c2 | 67 c3 55 ab 83 c4 aa 90 |il ". ..|g.U.....|
|00001a50| c5 c6 c7 8f 89 1e 08 a7 | ab 84 0e 08 aa 81 c4 29 |........|.......)|
|00001a60| 6d ac 83 c9 75 88 60 ca | cb 09 cc 23 ab 84 60 53 |m...u.`.|...#..`S|
|00001a70| aa 81 09 7b 60 ca cb 09 | cc 23 ab 84 60 53 aa 81 |...{`...|.#..`S..|
|00001a80| 09 7b 60 ca cb 09 cc 23 | ab 84 60 53 aa 81 09 7b |.{`....#|..`S...{|
|00001a90| 60 ca cb 09 cc 23 ab 84 | 60 53 aa 81 09 7b ae 8a |`....#..|`S...{..|
|00001aa0| cd ce 0e 0f 54 89 16 0f | 21 50 60 ca cb 09 cc 23 |....T...|!P`....#|
|00001ab0| ab 84 60 53 aa 81 09 7b | 67 c3 55 ab 83 c4 aa 90 |..`S...{|g.U.....|
|00001ac0| c5 d0 d1 8f 89 1e 08 a7 | ab 84 0e 08 aa 81 c4 29 |........|.......)|
|00001ad0| 6d ac 83 c9 75 88 67 c3 | 55 ab 83 c4 aa 90 c5 d2 |m...u.g.|U.......|
|00001ae0| d3 8f 89 1e 08 a7 ab 84 | 0e 08 aa 81 c4 29 6d ac |........|.....)m.|
|00001af0| 83 c9 75 88 67 d4 55 3f | ad 8e 60 ca cb 09 cc 23 |..u.g.U?|..`....#|
|00001b00| ab 84 60 53 aa 81 09 7b | 26 09 29 87 22 20 5b 67 |..`S...{|&.)." [g|
|00001b10| 6e 75 73 2d 70 6f 69 6e | 74 2d 61 74 2d 65 6f 6c |nus-poin|t-at-eol|
|00001b20| 20 65 6f 6c 20 76 65 63 | 74 6f 72 20 3f 5c 74 20 | eol vec|tor ?\t |
|00001b30| 30 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |0 nil (b|yte-code|
|00001b40| 20 22 c0 70 21 87 22 20 | 5b 72 65 61 64 5d 20 32 | ".p!." |[read] 2|
|00001b50| 29 20 28 28 65 72 72 6f | 72 29 29 20 6e 75 6d 20 |) ((erro|r)) num |
|00001b60| 31 20 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |1 search|-forward|
|00001b70| 20 22 09 22 20 6d 6f 76 | 65 20 22 66 61 6b 65 2b | "." mov|e "fake+|
|00001b80| 6e 6f 6e 65 2b 22 20 69 | 6e 74 2d 74 6f 2d 73 74 |none+" i|nt-to-st|
|00001b90| 72 69 6e 67 20 6e 6e 68 | 65 61 64 65 72 2d 66 61 |ring nnh|eader-fa|
|00001ba0| 6b 65 2d 6d 65 73 73 61 | 67 65 2d 69 64 20 28 62 |ke-messa|ge-id (b|
|00001bb0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 70 21 87 22 20 |yte-code| ".p!." |
|00001bc0| 5b 72 65 61 64 5d 20 32 | 29 20 28 28 65 72 72 6f |[read] 2|) ((erro|
|00001bd0| 72 29 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |r)) (byt|e-code "|
|00001be0| c0 70 21 87 22 20 5b 72 | 65 61 64 5d 20 32 29 20 |.p!." [r|ead] 2) |
|00001bf0| 28 28 65 72 72 6f 72 29 | 29 20 3f 5c 6e 5d 20 31 |((error)|) ?\n] 1|
|00001c00| 35 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6e |5]).(def|alias 'n|
|00001c10| 6e 68 65 61 64 65 72 2d | 69 6e 73 65 72 74 2d 6e |nheader-|insert-n|
|00001c20| 6f 76 20 23 5b 28 68 65 | 61 64 65 72 29 20 22 c0 |ov #[(he|ader) ".|
|00001c30| 09 c2 48 70 5c 22 88 c3 | 09 c4 48 ae 81 c5 c3 09 |..Hp\"..|..H.....|
|00001c40| c6 48 ae 81 c7 c3 09 c8 | 48 ae 81 c9 c3 09 ca 48 |.H......|H......H|
|00001c50| ae 82 cb 20 c3 09 cc 48 | ae 81 c9 c3 b1 0b 88 c0 |... ...H|........|
|00001c60| 09 cd 48 ae 81 c2 70 5c | 22 88 c3 63 88 c0 09 ce |..H...p\|"..c....|
|00001c70| 48 ae 81 c2 70 5c 22 88 | c3 63 88 09 cf 48 ab 88 |H...p\".|.c...H..|
|00001c80| d0 09 cf 48 c3 b1 03 88 | d1 63 87 22 20 5b 70 72 |...H....|.c." [pr|
|00001c90| 69 6e 63 20 68 65 61 64 | 65 72 20 30 20 22 09 22 |inc head|er 0 "."|
|00001ca0| 20 31 20 22 28 6e 6f 6e | 65 29 22 20 32 20 22 28 | 1 "(non|e)" 2 "(|
|00001cb0| 6e 6f 62 6f 64 79 29 22 | 20 33 20 22 22 20 34 20 |nobody)"| 3 "" 4 |
|00001cc0| 6e 6e 6d 61 69 6c 2d 6d | 65 73 73 61 67 65 2d 69 |nnmail-m|essage-i|
|00001cd0| 64 20 35 20 36 20 37 20 | 38 20 22 58 72 65 66 3a |d 5 6 7 |8 "Xref:|
|00001ce0| 20 22 20 22 5c 6e 22 5d | 20 31 31 5d 29 0a 28 64 | " "\n"]| 11]).(d|
|00001cf0| 65 66 61 6c 69 61 73 20 | 27 6e 6e 68 65 61 64 65 |efalias |'nnheade|
|00001d00| 72 2d 69 6e 73 65 72 74 | 2d 61 72 74 69 63 6c 65 |r-insert|-article|
|00001d10| 2d 6c 69 6e 65 20 23 5b | 28 61 72 74 69 63 6c 65 |-line #[|(article|
|00001d20| 29 20 22 65 62 88 c0 63 | 88 c1 5c 6e 70 5c 22 88 |) "eb..c|..\np\".|
|00001d30| c3 63 88 c4 c5 c6 c7 23 | 88 60 64 7c 88 c8 75 88 |.c.....#|.`d|..u.|
|00001d40| c9 63 87 22 20 5b 22 32 | 32 30 20 22 20 70 72 69 |.c." ["2|20 " pri|
|00001d50| 6e 63 20 61 72 74 69 63 | 6c 65 20 22 20 41 72 74 |nc artic|le " Art|
|00001d60| 69 63 6c 65 20 72 65 74 | 72 69 65 76 65 64 2e 5c |icle ret|rieved.\|
|00001d70| 6e 22 20 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |n" searc|h-forwar|
|00001d80| 64 20 22 5c 6e 5c 6e 22 | 20 6e 69 6c 20 6d 6f 76 |d "\n\n"| nil mov|
|00001d90| 65 20 2d 31 20 22 2e 22 | 5d 20 34 5d 29 0a 23 40 |e -1 "."|] 4]).#@|
|00001da0| 36 31 20 44 65 6c 65 74 | 65 20 61 6c 6c 20 4e 4f |61 Delet|e all NO|
|00001db0| 56 20 6c 69 6e 65 73 20 | 74 68 61 74 20 6c 69 65 |V lines |that lie|
|00001dc0| 20 6f 75 74 73 69 64 65 | 20 74 68 65 20 42 45 47 | outside| the BEG|
|00001dd0| 20 74 6f 20 45 4e 44 20 | 72 61 6e 67 65 2e 1f 0a | to END |range...|
|00001de0| 28 64 65 66 61 6c 69 61 | 73 20 27 6e 6e 68 65 61 |(defalia|s 'nnhea|
|00001df0| 64 65 72 2d 6e 6f 76 2d | 64 65 6c 65 74 65 2d 6f |der-nov-|delete-o|
|00001e00| 75 74 73 69 64 65 2d 72 | 61 6e 67 65 20 23 5b 28 |utside-r|ange #[(|
|00001e10| 62 65 67 20 65 6e 64 29 | 20 22 c0 09 21 88 65 60 |beg end)| "..!.e`|
|00001e20| 7c 88 c0 5c 6e 21 ab 83 | c3 79 88 60 64 7c 87 22 ||..\n!..|.y.`d|."|
|00001e30| 20 5b 6e 6e 68 65 61 64 | 65 72 2d 66 69 6e 64 2d | [nnhead|er-find-|
|00001e40| 6e 6f 76 2d 6c 69 6e 65 | 20 62 65 67 20 65 6e 64 |nov-line| beg end|
|00001e50| 20 31 5d 20 32 20 28 23 | 24 20 2e 20 37 35 38 37 | 1] 2 (#|$ . 7587|
|00001e60| 29 5d 29 0a 23 40 31 38 | 33 20 50 75 74 20 70 6f |)]).#@18|3 Put po|
|00001e70| 69 6e 74 20 61 74 20 74 | 68 65 20 4e 4f 56 20 6c |int at t|he NOV l|
|00001e80| 69 6e 65 20 74 68 61 74 | 20 73 74 61 72 74 20 77 |ine that| start w|
|00001e90| 69 74 68 20 41 52 54 49 | 43 4c 45 2e 0a 49 66 20 |ith ARTI|CLE..If |
|00001ea0| 41 52 54 49 43 4c 45 20 | 64 6f 65 73 6e 27 74 20 |ARTICLE |doesn't |
|00001eb0| 65 78 69 73 74 2c 20 70 | 75 74 20 70 6f 69 6e 74 |exist, p|ut point|
|00001ec0| 20 77 68 65 72 65 20 74 | 68 61 74 20 6c 69 6e 65 | where t|hat line|
|00001ed0| 0a 77 6f 75 6c 64 20 68 | 61 76 65 20 62 65 65 6e |.would h|ave been|
|00001ee0| 2e 20 20 54 68 65 20 66 | 75 6e 63 74 69 6f 6e 20 |. The f|unction |
|00001ef0| 77 69 6c 6c 20 72 65 74 | 75 72 6e 20 6e 6f 6e 2d |will ret|urn non-|
|00001f00| 6e 69 6c 20 69 66 0a 74 | 68 65 20 6c 69 6e 65 20 |nil if.t|he line |
|00001f10| 63 6f 75 6c 64 20 62 65 | 20 66 6f 75 6e 64 2e 1f |could be| found..|
|00001f20| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6e 6e 68 65 |.(defali|as 'nnhe|
|00001f30| 61 64 65 72 2d 66 69 6e | 64 2d 6e 6f 76 2d 6c 69 |ader-fin|d-nov-li|
|00001f40| 6e 65 20 23 5b 28 61 72 | 74 69 63 6c 65 29 20 22 |ne #[(ar|ticle) "|
|00001f50| 64 65 62 70 65 c0 89 19 | 1a 1b 1c 1d 1e 06 09 ac |debpe...|........|
|00001f60| b8 0e 06 0d 5c 5c c7 a5 | 62 88 c8 79 88 60 0b 55 |....\\..|b..y.`.U|
|00001f70| ac 83 6d ab 85 c9 89 11 | aa 66 60 13 ca 0c 21 89 |..m.....|.f`...!.|
|00001f80| 12 0e 0b 56 ab 85 60 16 | 06 aa 54 5c 6e 0e 0b 57 |...V..`.|..T\n..W|
|00001f90| ab 84 60 15 aa 4a cc 89 | 11 ab 48 5c 6e ac 87 6d |..`..J..|..H\n..m|
|00001fa0| ac 84 ca 0c 21 12 09 cc | 61 ac af 5c 6e 0e 0b 61 |....!...|a..\n..a|
|00001fb0| ac a9 60 11 60 0e 06 57 | ab 98 5c 6e a7 ab 86 5c |..`.`..W|..\n...\|
|00001fc0| 6e 0e 0b 57 ab 8e cd 79 | 88 60 11 6d ac 68 ca 0c |n..W...y|.`.m.h..|
|00001fd0| 21 12 aa 62 5c 6e 0e 0b | 61 ac 83 09 62 88 c8 79 |!..b\n..|a...b..y|
|00001fe0| 88 5c 6e 0e 0b 2e 06 61 | 87 22 20 5b 6e 69 6c 20 |.\n....a|." [nil |
|00001ff0| 66 6f 75 6e 64 20 6e 75 | 6d 20 70 72 65 76 20 63 |found nu|m prev c|
|00002000| 75 72 20 6d 69 6e 20 6d | 61 78 20 32 20 30 20 74 |ur min m|ax 2 0 t|
|00002010| 20 72 65 61 64 20 61 72 | 74 69 63 6c 65 20 79 65 | read ar|ticle ye|
|00002020| 73 20 31 5d 20 37 20 28 | 23 24 20 2e 20 37 37 38 |s 1] 7 (|#$ . 778|
|00002030| 36 29 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |6)]).(by|te-code |
|00002040| 22 c0 c1 21 ac 82 c2 11 | c1 0b 42 13 c2 87 22 20 |"..!....|..B..." |
|00002050| 5b 62 6f 75 6e 64 70 20 | 6e 6e 74 70 2d 73 65 72 |[boundp |nntp-ser|
|00002060| 76 65 72 2d 62 75 66 66 | 65 72 20 6e 69 6c 20 63 |ver-buff|er nil c|
|00002070| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00002080| 5d 20 32 29 0a 23 40 36 | 34 20 2a 41 20 6e 75 6d |] 2).#@6|4 *A num|
|00002090| 62 65 72 20 74 68 61 74 | 20 73 61 79 73 20 68 6f |ber that| says ho|
|000020a0| 77 20 74 61 6c 6b 61 74 | 69 76 65 20 74 68 65 20 |w talkat|ive the |
|000020b0| 47 6e 75 73 20 62 61 63 | 6b 65 6e 64 73 20 73 68 |Gnus bac|kends sh|
|000020c0| 6f 75 6c 64 20 62 65 2e | 1f 0a 28 64 65 66 76 61 |ould be.|..(defva|
|000020d0| 72 20 67 6e 75 73 2d 76 | 65 72 62 6f 73 65 2d 62 |r gnus-v|erbose-b|
|000020e0| 61 63 6b 65 6e 64 73 20 | 37 20 28 23 24 20 2e 20 |ackends |7 (#$ . |
|000020f0| 2d 38 33 33 30 29 29 0a | 23 40 37 32 20 49 66 20 |-8330)).|#@72 If |
|00002100| 6e 6f 6e 2d 6e 69 6c 2c | 20 47 6e 75 73 20 62 61 |non-nil,| Gnus ba|
|00002110| 63 6b 65 6e 64 73 20 77 | 69 6c 6c 20 6e 65 76 65 |ckends w|ill neve|
|00002120| 72 20 6f 75 74 70 75 74 | 20 68 65 61 64 65 72 73 |r output| headers|
|00002130| 20 69 6e 20 74 68 65 20 | 4e 4f 56 20 66 6f 72 6d | in the |NOV form|
|00002140| 61 74 2e 1f 0a 28 64 65 | 66 76 61 72 20 67 6e 75 |at...(de|fvar gnu|
|00002150| 73 2d 6e 6f 76 2d 69 73 | 2d 65 76 69 6c 20 6e 69 |s-nov-is|-evil ni|
|00002160| 6c 20 28 23 24 20 2e 20 | 38 34 34 35 29 29 0a 28 |l (#$ . |8445)).(|
|00002170| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 ac 82 |byte-cod|e "..!..|
|00002180| c2 11 c1 0b 42 13 c0 c4 | 21 ac 82 c2 14 c4 0b 42 |....B...|!......B|
|00002190| 13 c0 c5 21 ac 82 c2 15 | c5 0b 42 13 c2 87 22 20 |...!....|..B..." |
|000021a0| 5b 62 6f 75 6e 64 70 20 | 6e 65 77 73 2d 72 65 70 |[boundp |news-rep|
|000021b0| 6c 79 2d 79 61 6e 6b 2d | 66 72 6f 6d 20 6e 69 6c |ly-yank-|from nil|
|000021c0| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|000021d0| 73 74 20 6e 65 77 73 2d | 72 65 70 6c 79 2d 79 61 |st news-|reply-ya|
|000021e0| 6e 6b 2d 6d 65 73 73 61 | 67 65 2d 69 64 20 6e 6e |nk-messa|ge-id nn|
|000021f0| 68 65 61 64 65 72 2d 63 | 61 6c 6c 62 61 63 6b 2d |header-c|allback-|
|00002200| 66 75 6e 63 74 69 6f 6e | 5d 20 32 29 0a 23 40 35 |function|] 2).#@5|
|00002210| 31 20 49 6e 69 74 69 61 | 6c 69 7a 65 20 74 68 65 |1 Initia|lize the|
|00002220| 20 47 6e 75 73 2d 62 61 | 63 6b 65 6e 64 20 63 6f | Gnus-ba|ckend co|
|00002230| 6d 6d 75 6e 69 63 61 74 | 69 6f 6e 20 62 75 66 66 |mmunicat|ion buff|
|00002240| 65 72 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |er...(de|falias '|
|00002250| 6e 6e 68 65 61 64 65 72 | 2d 69 6e 69 74 2d 73 65 |nnheader|-init-se|
|00002260| 72 76 65 72 2d 62 75 66 | 66 65 72 20 23 5b 6e 69 |rver-buf|fer #[ni|
|00002270| 6c 20 22 8a 08 89 19 ad | 8a c2 09 21 ad 85 c3 c2 |l ".....|...!....|
|00002280| 09 21 21 29 ac 84 c4 c5 | 21 10 08 71 88 c6 70 21 |.!!)....|!..q..p!|
|00002290| 88 c7 20 88 c8 20 88 c9 | 16 5c 6e 29 c9 87 22 20 |.. .. ..|.\n).." |
|000022a0| 5b 6e 6e 74 70 2d 73 65 | 72 76 65 72 2d 62 75 66 |[nntp-se|rver-buf|
|000022b0| 66 65 72 20 62 75 66 66 | 65 72 20 67 65 74 2d 62 |fer buff|er get-b|
|000022c0| 75 66 66 65 72 20 62 75 | 66 66 65 72 2d 6e 61 6d |uffer bu|ffer-nam|
|000022d0| 65 20 67 65 74 2d 62 75 | 66 66 65 72 2d 63 72 65 |e get-bu|ffer-cre|
|000022e0| 61 74 65 20 22 20 2a 6e | 6e 74 70 64 2a 22 20 62 |ate " *n|ntpd*" b|
|000022f0| 75 66 66 65 72 2d 64 69 | 73 61 62 6c 65 2d 75 6e |uffer-di|sable-un|
|00002300| 64 6f 20 65 72 61 73 65 | 2d 62 75 66 66 65 72 20 |do erase|-buffer |
|00002310| 6b 69 6c 6c 2d 61 6c 6c | 2d 6c 6f 63 61 6c 2d 76 |kill-all|-local-v|
|00002320| 61 72 69 61 62 6c 65 73 | 20 74 20 63 61 73 65 2d |ariables| t case-|
|00002330| 66 6f 6c 64 2d 73 65 61 | 72 63 68 5d 20 34 20 28 |fold-sea|rch] 4 (|
|00002340| 23 24 20 2e 20 38 37 32 | 32 29 5d 29 0a 23 40 35 |#$ . 872|2)]).#@5|
|00002350| 32 20 52 65 74 75 72 6e | 20 61 20 73 74 72 69 6e |2 Return| a strin|
|00002360| 67 20 74 68 61 74 20 73 | 61 79 73 20 77 68 61 74 |g that s|ays what|
|00002370| 20 69 73 20 77 72 6f 6e | 67 20 77 69 74 68 20 46 | is wron|g with F|
|00002380| 49 4c 45 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ILE...(d|efalias |
|00002390| 27 6e 6e 68 65 61 64 65 | 72 2d 66 69 6c 65 2d 65 |'nnheade|r-file-e|
|000023a0| 72 72 6f 72 20 23 5b 28 | 66 69 6c 65 29 20 22 c0 |rror #[(|file) ".|
|000023b0| c1 5c 6e 21 ac 83 c3 aa | 8f c4 5c 6e 21 ab 83 c5 |.\n!....|..\n!...|
|000023c0| aa 87 c6 5c 6e 21 3f ad | 81 c7 5c 6e 5c 22 87 22 |...\n!?.|..\n\"."|
|000023d0| 20 5b 66 6f 72 6d 61 74 | 20 66 69 6c 65 2d 65 78 | [format| file-ex|
|000023e0| 69 73 74 73 2d 70 20 66 | 69 6c 65 20 22 25 73 20 |ists-p f|ile "%s |
|000023f0| 64 6f 65 73 20 6e 6f 74 | 20 65 78 69 73 74 22 20 |does not| exist" |
|00002400| 66 69 6c 65 2d 64 69 72 | 65 63 74 6f 72 79 2d 70 |file-dir|ectory-p|
|00002410| 20 22 25 73 20 69 73 20 | 61 20 64 69 72 65 63 74 | "%s is |a direct|
|00002420| 6f 72 79 22 20 66 69 6c | 65 2d 72 65 61 64 61 62 |ory" fil|e-readab|
|00002430| 6c 65 2d 70 20 22 25 73 | 20 69 73 20 6e 6f 74 20 |le-p "%s| is not |
|00002440| 72 65 61 64 61 62 6c 65 | 22 5d 20 33 20 28 23 24 |readable|"] 3 (#$|
|00002450| 20 2e 20 39 30 34 32 29 | 5d 29 0a 23 40 33 33 20 | . 9042)|]).#@33 |
|00002460| 49 6e 73 65 72 74 20 74 | 68 65 20 68 65 61 64 20 |Insert t|he head |
|00002470| 6f 66 20 74 68 65 20 61 | 72 74 69 63 6c 65 2e 1f |of the a|rticle..|
|00002480| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6e 6e 68 65 |.(defali|as 'nnhe|
|00002490| 61 64 65 72 2d 69 6e 73 | 65 72 74 2d 68 65 61 64 |ader-ins|ert-head|
|000024a0| 20 23 5b 28 66 69 6c 65 | 29 20 22 c0 09 21 ad bb | #[(file|) "..!..|
|000024b0| 5c 6e c3 61 ab 86 c4 09 | 21 88 aa af c5 c6 1e 07 |\n.a....|!.......|
|000024c0| 1e 08 0e 09 c4 09 c6 0e | 08 89 0e 09 5c 5c 89 16 |........|....\\..|
|000024d0| 08 24 41 40 61 ab 94 ca | cb c6 c3 23 3f 64 62 88 |.$A@a...|...#?db.|
|000024e0| ab 89 5c 6e ab 5e 0e 08 | 5c 6e 57 ac 58 2a c3 87 |..\n.^..|\nW.X*..|
|000024f0| 22 20 5b 66 69 6c 65 2d | 65 78 69 73 74 73 2d 70 |" [file-|exists-p|
|00002500| 20 66 69 6c 65 20 6e 6e | 68 65 61 64 65 72 2d 6d | file nn|header-m|
|00002510| 61 78 2d 68 65 61 64 2d | 6c 65 6e 67 74 68 20 74 |ax-head-|length t|
|00002520| 20 6e 6e 68 65 61 64 65 | 72 2d 69 6e 73 65 72 74 | nnheade|r-insert|
|00002530| 2d 66 69 6c 65 2d 63 6f | 6e 74 65 6e 74 73 20 30 |-file-co|ntents 0|
|00002540| 20 6e 69 6c 20 66 6f 72 | 6d 61 74 2d 61 6c 69 73 | nil for|mat-alis|
|00002550| 74 20 62 65 67 20 6e 6e | 68 65 61 64 65 72 2d 68 |t beg nn|header-h|
|00002560| 65 61 64 2d 63 68 6f 70 | 2d 6c 65 6e 67 74 68 20 |ead-chop|-length |
|00002570| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00002580| 5c 6e 5c 6e 22 5d 20 37 | 20 28 23 24 20 2e 20 39 |\n\n"] 7| (#$ . 9|
|00002590| 33 31 32 29 5d 29 0a 23 | 40 35 35 20 53 61 79 20 |312)]).#|@55 Say |
|000025a0| 77 68 65 74 68 65 72 20 | 74 68 65 20 63 75 72 72 |whether |the curr|
|000025b0| 65 6e 74 20 62 75 66 66 | 65 72 20 6c 6f 6f 6b 73 |ent buff|er looks|
|000025c0| 20 6c 69 6b 65 20 61 6e | 20 61 72 74 69 63 6c 65 | like an| article|
|000025d0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6e 6e |...(defa|lias 'nn|
|000025e0| 68 65 61 64 65 72 2d 61 | 72 74 69 63 6c 65 2d 70 |header-a|rticle-p|
|000025f0| 20 23 5b 6e 69 6c 20 22 | 65 62 88 c0 c1 c2 c3 23 | #[nil "|eb.....#|
|00002600| ad 96 65 60 53 7d 88 65 | 62 88 c4 c5 21 ab 86 c6 |..e`S}.e|b...!...|
|00002610| 95 62 88 aa 75 6d 7e 88 | 87 22 20 5b 73 65 61 72 |.b..um~.|." [sear|
|00002620| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5c 6e 5c 6e |ch-forwa|rd "\n\n|
|00002630| 22 20 6e 69 6c 20 74 20 | 6c 6f 6f 6b 69 6e 67 2d |" nil t |looking-|
|00002640| 61 74 20 22 5b 41 2d 5a | 5d 5b 5e 20 09 5d 2b 3a |at "[A-Z|][^ .]+:|
|00002650| 2e 2a 5c 6e 5c 5c 28 5b | 20 09 5d 2e 2a 5c 6e 5c |.*\n\\([| .].*\n\|
|00002660| 5c 29 2a 5c 5c 7c 46 72 | 6f 6d 20 2e 2a 5c 6e 22 |\)*\\|Fr|om .*\n"|
|00002670| 20 30 5d 20 34 20 28 23 | 24 20 2e 20 39 36 32 38 | 0] 4 (#|$ . 9628|
|00002680| 29 5d 29 0a 23 40 36 34 | 20 49 6e 73 65 72 74 20 |)]).#@64| Insert |
|00002690| 61 20 52 65 66 65 72 65 | 6e 63 65 73 20 68 65 61 |a Refere|nces hea|
|000026a0| 64 65 72 20 62 61 73 65 | 64 20 6f 6e 20 52 45 46 |der base|d on REF|
|000026b0| 45 52 45 4e 43 45 53 20 | 61 6e 64 20 4d 45 53 53 |ERENCES |and MESS|
|000026c0| 41 47 45 2d 49 44 2e 1f | 0a 28 64 65 66 61 6c 69 |AGE-ID..|.(defali|
|000026d0| 61 73 20 27 6e 6e 68 65 | 61 64 65 72 2d 69 6e 73 |as 'nnhe|ader-ins|
|000026e0| 65 72 74 2d 72 65 66 65 | 72 65 6e 63 65 73 20 23 |ert-refe|rences #|
|000026f0| 5b 28 72 65 66 65 72 65 | 6e 63 65 73 20 6d 65 73 |[(refere|nces mes|
|00002700| 73 61 67 65 2d 69 64 29 | 20 22 08 3f ad 82 09 3f |sage-id)| ".?...?|
|00002710| 3f ad ae c2 c3 21 88 8a | c4 79 88 60 29 c5 c6 1e |?....!..|.y.`)...|
|00002720| 07 1e 08 1e 09 08 ab 83 | 08 63 88 08 ab 86 09 ab |........|.c......|
|00002730| 83 ca 63 88 09 ab 83 09 | 63 88 cb 0e 09 60 54 5c |..c.....|c....`T\|
|00002740| 22 2b 87 22 20 5b 72 65 | 66 65 72 65 6e 63 65 73 |"+." [re|ferences|
|00002750| 20 6d 65 73 73 61 67 65 | 2d 69 64 20 6d 61 69 6c | message|-id mail|
|00002760| 2d 70 6f 73 69 74 69 6f | 6e 2d 6f 6e 2d 66 69 65 |-positio|n-on-fie|
|00002770| 6c 64 20 22 52 65 66 65 | 72 65 6e 63 65 73 22 20 |ld "Refe|rences" |
|00002780| 30 20 37 38 20 22 09 22 | 20 66 69 6c 6c 2d 70 72 |0 78 "."| fill-pr|
|00002790| 65 66 69 78 20 66 69 6c | 6c 2d 63 6f 6c 75 6d 6e |efix fil|l-column|
|000027a0| 20 62 65 67 69 6e 20 22 | 20 22 20 66 69 6c 6c 2d | begin "| " fill-|
|000027b0| 72 65 67 69 6f 6e 2d 61 | 73 2d 70 61 72 61 67 72 |region-a|s-paragr|
|000027c0| 61 70 68 5d 20 33 20 28 | 23 24 20 2e 20 39 38 36 |aph] 3 (|#$ . 986|
|000027d0| 35 29 5d 29 0a 23 40 34 | 31 20 52 65 6d 6f 76 65 |5)]).#@4|1 Remove|
|000027e0| 20 48 45 41 44 45 52 20 | 61 6e 64 20 69 6e 73 65 | HEADER |and inse|
|000027f0| 72 74 20 74 68 65 20 4e | 45 57 2d 56 41 4c 55 45 |rt the N|EW-VALUE|
|00002800| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6e 6e |...(defa|lias 'nn|
|00002810| 68 65 61 64 65 72 2d 72 | 65 70 6c 61 63 65 2d 68 |header-r|eplace-h|
|00002820| 65 61 64 65 72 20 23 5b | 28 68 65 61 64 65 72 20 |eader #[|(header |
|00002830| 6e 65 77 2d 76 61 6c 75 | 65 29 20 22 8a 8c c0 20 |new-valu|e) "... |
|00002840| 88 c1 5c 6e 21 64 62 88 | 5c 6e c3 0c c5 b1 04 88 |..\n!db.|\n......|
|00002850| 2a 87 22 20 5b 6e 6e 68 | 65 61 64 65 72 2d 6e 61 |*." [nnh|eader-na|
|00002860| 72 72 6f 77 2d 74 6f 2d | 68 65 61 64 65 72 73 20 |rrow-to-|headers |
|00002870| 6d 65 73 73 61 67 65 2d | 72 65 6d 6f 76 65 2d 68 |message-|remove-h|
|00002880| 65 61 64 65 72 20 68 65 | 61 64 65 72 20 22 3a 20 |eader he|ader ": |
|00002890| 22 20 6e 65 77 2d 76 61 | 6c 75 65 20 22 5c 6e 22 |" new-va|lue "\n"|
|000028a0| 5d 20 35 20 28 23 24 20 | 2e 20 31 30 32 30 32 29 |] 5 (#$ |. 10202)|
|000028b0| 5d 29 0a 23 40 33 35 20 | 4e 61 72 72 6f 77 20 74 |]).#@35 |Narrow t|
|000028c0| 6f 20 74 68 65 20 68 65 | 61 64 20 6f 66 20 61 6e |o the he|ad of an|
|000028d0| 20 61 72 74 69 63 6c 65 | 2e 1f 0a 28 64 65 66 61 | article|...(defa|
|000028e0| 6c 69 61 73 20 27 6e 6e | 68 65 61 64 65 72 2d 6e |lias 'nn|header-n|
|000028f0| 61 72 72 6f 77 2d 74 6f | 2d 68 65 61 64 65 72 73 |arrow-to|-headers|
|00002900| 20 23 5b 6e 69 6c 20 22 | 7e 88 65 62 c0 c1 c2 c3 | #[nil "|~.eb....|
|00002910| 23 ab 84 60 53 aa 81 64 | 7d 88 65 62 87 22 20 5b |#..`S..d|}.eb." [|
|00002920| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00002930| 5c 6e 5c 6e 22 20 6e 69 | 6c 20 74 5d 20 35 20 28 |\n\n" ni|l t] 5 (|
|00002940| 23 24 20 2e 20 31 30 34 | 32 34 29 5d 29 0a 23 40 |#$ . 104|24)]).#@|
|00002950| 37 38 20 53 65 74 2d 62 | 75 66 66 65 72 20 74 6f |78 Set-b|uffer to|
|00002960| 20 61 6e 20 65 6d 70 74 | 79 20 28 70 6f 73 73 69 | an empt|y (possi|
|00002970| 62 6c 79 20 6e 65 77 29 | 20 62 75 66 66 65 72 20 |bly new)| buffer |
|00002980| 63 61 6c 6c 65 64 20 4e | 41 4d 45 20 77 69 74 68 |called N|AME with|
|00002990| 20 75 6e 64 6f 20 64 69 | 73 61 62 6c 65 64 2e 1f | undo di|sabled..|
|000029a0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6e 6e 68 65 |.(defali|as 'nnhe|
|000029b0| 61 64 65 72 2d 73 65 74 | 2d 74 65 6d 70 2d 62 75 |ader-set|-temp-bu|
|000029c0| 66 66 65 72 20 23 5b 28 | 6e 61 6d 65 20 26 6f 70 |ffer #[(|name &op|
|000029d0| 74 69 6f 6e 61 6c 20 6e | 6f 65 72 61 73 65 29 20 |tional n|oerase) |
|000029e0| 22 c0 09 21 71 88 c2 70 | 21 88 0b ac 83 c4 20 88 |"..!q..p|!..... .|
|000029f0| 70 87 22 20 5b 67 65 74 | 2d 62 75 66 66 65 72 2d |p." [get|-buffer-|
|00002a00| 63 72 65 61 74 65 20 6e | 61 6d 65 20 62 75 66 66 |create n|ame buff|
|00002a10| 65 72 2d 64 69 73 61 62 | 6c 65 2d 75 6e 64 6f 20 |er-disab|le-undo |
|00002a20| 6e 6f 65 72 61 73 65 20 | 65 72 61 73 65 2d 62 75 |noerase |erase-bu|
|00002a30| 66 66 65 72 5d 20 32 20 | 28 23 24 20 2e 20 31 30 |ffer] 2 |(#$ . 10|
|00002a40| 35 37 39 29 5d 29 0a 23 | 40 32 31 36 20 43 72 65 |579)]).#|@216 Cre|
|00002a50| 61 74 65 20 61 20 6e 65 | 77 20 62 75 66 66 65 72 |ate a ne|w buffer|
|00002a60| 2c 20 65 76 61 6c 75 61 | 74 65 20 46 4f 52 4d 53 |, evalua|te FORMS|
|00002a70| 20 74 68 65 72 65 2c 20 | 61 6e 64 20 77 72 69 74 | there, |and writ|
|00002a80| 65 20 74 68 65 20 62 75 | 66 66 65 72 20 74 6f 20 |e the bu|ffer to |
|00002a90| 46 49 4c 45 2e 0a 52 65 | 74 75 72 6e 20 74 68 65 |FILE..Re|turn the|
|00002aa0| 20 76 61 6c 75 65 20 6f | 66 20 46 4f 52 4d 53 2e | value o|f FORMS.|
|00002ab0| 0a 49 66 20 46 49 4c 45 | 20 69 73 20 6e 69 6c 2c |.If FILE| is nil,|
|00002ac0| 20 6a 75 73 74 20 65 76 | 61 6c 75 61 74 65 20 46 | just ev|aluate F|
|00002ad0| 4f 52 4d 53 20 61 6e 64 | 20 64 6f 6e 27 74 20 73 |ORMS and| don't s|
|00002ae0| 61 76 65 20 61 6e 79 74 | 68 69 6e 67 2e 0a 49 66 |ave anyt|hing..If|
|00002af0| 20 46 49 4c 45 20 69 73 | 20 74 2c 20 72 65 74 75 | FILE is| t, retu|
|00002b00| 72 6e 20 74 68 65 20 62 | 75 66 66 65 72 20 63 6f |rn the b|uffer co|
|00002b10| 6e 74 65 6e 74 73 20 61 | 73 20 61 20 73 74 72 69 |ntents a|s a stri|
|00002b20| 6e 67 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ng...(de|falias '|
|00002b30| 6e 6e 68 65 61 64 65 72 | 2d 74 65 6d 70 2d 77 72 |nnheader|-temp-wr|
|00002b40| 69 74 65 20 27 28 6d 61 | 63 72 6f 20 2e 20 23 5b |ite '(ma|cro . #[|
|00002b50| 28 66 69 6c 65 20 26 72 | 65 73 74 20 66 6f 72 6d |(file &r|est form|
|00002b60| 73 29 20 22 c0 c1 21 c0 | c2 21 c0 c3 21 1c 1d 1e |s) "..!.|.!..!...|
|00002b70| 06 c7 c8 0e 06 0e 09 44 | ca 0d cb 42 0c 46 cc cd |.......D|...B.F..|
|00002b80| ce 0c cd 0e 0f 42 45 d0 | d1 0e 06 44 0c 44 d2 0e |.....BE.|...D.D..|
|00002b90| 06 d3 42 42 d4 0d 44 d5 | 42 42 d6 d4 0d 44 d7 d8 |..BB..D.|BB...D..|
|00002ba0| d9 da 0e 06 44 44 44 db | da 0e 06 44 dc 42 42 45 |....DDD.|...D.BBE|
|00002bb0| dd de df 0e 06 e0 42 42 | 42 42 0c af 05 46 45 d7 |......BB|BB...FE.|
|00002bc0| e1 0d 44 e2 0d 44 45 45 | 45 2b 44 87 22 20 5b 6d |..D..DEE|E+D." [m|
|00002bd0| 61 6b 65 2d 73 79 6d 62 | 6f 6c 20 22 74 65 6d 70 |ake-symb|ol "temp|
|00002be0| 2d 66 69 6c 65 22 20 22 | 74 65 6d 70 2d 62 75 66 |-file" "|temp-buf|
|00002bf0| 66 65 72 22 20 22 74 65 | 6d 70 2d 72 65 73 75 6c |fer" "te|mp-resul|
|00002c00| 74 73 22 20 74 65 6d 70 | 2d 72 65 73 75 6c 74 73 |ts" temp|-results|
|00002c10| 20 74 65 6d 70 2d 62 75 | 66 66 65 72 20 74 65 6d | temp-bu|ffer tem|
|00002c20| 70 2d 66 69 6c 65 20 73 | 61 76 65 2d 65 78 63 75 |p-file s|ave-excu|
|00002c30| 72 73 69 6f 6e 20 6c 65 | 74 2a 20 66 69 6c 65 20 |rsion le|t* file |
|00002c40| 28 64 65 66 61 75 6c 74 | 2d 6d 61 6a 6f 72 2d 6d |(default|-major-m|
|00002c50| 6f 64 65 20 27 66 75 6e | 64 61 6d 65 6e 74 61 6c |ode 'fun|damental|
|00002c60| 2d 6d 6f 64 65 29 20 28 | 28 73 65 74 2d 62 75 66 |-mode) (|(set-buf|
|00002c70| 66 65 72 20 28 67 65 74 | 2d 62 75 66 66 65 72 2d |fer (get|-buffer-|
|00002c80| 63 72 65 61 74 65 20 28 | 67 65 6e 65 72 61 74 65 |create (|generate|
|00002c90| 2d 6e 65 77 2d 62 75 66 | 66 65 72 2d 6e 61 6d 65 |-new-buf|fer-name|
|00002ca0| 20 22 20 2a 6e 6e 68 65 | 61 64 65 72 20 74 65 6d | " *nnhe|ader tem|
|00002cb0| 70 2a 22 29 29 29 29 20 | 75 6e 77 69 6e 64 2d 70 |p*")))) |unwind-p|
|00002cc0| 72 6f 74 65 63 74 20 70 | 72 6f 67 6e 20 73 65 74 |rotect p|rogn set|
|00002cd0| 71 20 66 6f 72 6d 73 20 | 63 6f 6e 64 20 6e 75 6c |q forms |cond nul|
|00002ce0| 6c 20 65 71 20 28 74 29 | 20 73 65 74 2d 62 75 66 |l eq (t)| set-buf|
|00002cf0| 66 65 72 20 28 28 62 75 | 66 66 65 72 2d 73 74 72 |fer ((bu|ffer-str|
|00002d00| 69 6e 67 29 29 20 74 20 | 77 68 65 6e 20 6e 6f 74 |ing)) t |when not|
|00002d10| 20 66 69 6c 65 2d 64 69 | 72 65 63 74 6f 72 79 2d | file-di|rectory-|
|00002d20| 70 20 66 69 6c 65 2d 6e | 61 6d 65 2d 64 69 72 65 |p file-n|ame-dire|
|00002d30| 63 74 6f 72 79 20 6d 61 | 6b 65 2d 64 69 72 65 63 |ctory ma|ke-direc|
|00002d40| 74 6f 72 79 20 28 74 29 | 20 77 72 69 74 65 2d 72 |tory (t)| write-r|
|00002d50| 65 67 69 6f 6e 20 28 70 | 6f 69 6e 74 2d 6d 69 6e |egion (p|oint-min|
|00002d60| 29 20 28 70 6f 69 6e 74 | 2d 6d 61 78 29 20 28 6e |) (point|-max) (n|
|00002d70| 69 6c 20 27 6e 6f 6d 65 | 73 67 29 20 62 75 66 66 |il 'nome|sg) buff|
|00002d80| 65 72 2d 6e 61 6d 65 20 | 6b 69 6c 6c 2d 62 75 66 |er-name |kill-buf|
|00002d90| 66 65 72 5d 20 31 37 20 | 28 23 24 20 2e 20 31 30 |fer] 17 |(#$ . 10|
|00002da0| 38 32 39 29 5d 29 29 0a | 28 62 79 74 65 2d 63 6f |829)])).|(byte-co|
|00002db0| 64 65 20 22 c0 c1 c2 c3 | 23 88 c0 c1 c4 c5 23 88 |de "....|#.....#.|
|00002dc0| c6 0e 07 42 16 07 c0 87 | 22 20 5b 70 75 74 20 6e |...B....|" [put n|
|00002dd0| 6e 68 65 61 64 65 72 2d | 74 65 6d 70 2d 77 72 69 |nheader-|temp-wri|
|00002de0| 74 65 20 6c 69 73 70 2d | 69 6e 64 65 6e 74 2d 66 |te lisp-|indent-f|
|00002df0| 75 6e 63 74 69 6f 6e 20 | 31 20 65 64 65 62 75 67 |unction |1 edebug|
|00002e00| 2d 66 6f 72 6d 2d 73 70 | 65 63 20 28 66 6f 72 6d |-form-sp|ec (form|
|00002e10| 20 62 6f 64 79 29 20 6a | 6b 61 2d 63 6f 6d 70 72 | body) j|ka-compr|
|00002e20| 2d 63 6f 6d 70 72 65 73 | 73 69 6f 6e 2d 69 6e 66 |-compres|sion-inf|
|00002e30| 6f 2d 6c 69 73 74 20 63 | 75 72 72 65 6e 74 2d 6c |o-list c|urrent-l|
|00002e40| 6f 61 64 2d 6c 69 73 74 | 5d 20 34 29 0a 23 40 33 |oad-list|] 4).#@3|
|00002e50| 36 20 52 65 67 65 78 70 | 20 74 68 61 74 20 6d 61 |6 Regexp| that ma|
|00002e60| 74 63 68 20 6e 75 6d 65 | 72 69 63 61 6c 20 66 69 |tch nume|rical fi|
|00002e70| 6c 65 73 2e 1f 0a 28 64 | 65 66 76 61 72 20 6e 6e |les...(d|efvar nn|
|00002e80| 68 65 61 64 65 72 2d 6e | 75 6d 65 72 69 63 61 6c |header-n|umerical|
|00002e90| 2d 66 69 6c 65 73 20 28 | 62 79 74 65 2d 63 6f 64 |-files (|byte-cod|
|00002ea0| 65 20 22 c0 c1 21 ab 89 | c2 c3 c4 09 c5 23 c6 51 |e "..!..|.....#.Q|
|00002eb0| 87 c7 87 22 20 5b 62 6f | 75 6e 64 70 20 6a 6b 61 |..." [bo|undp jka|
|00002ec0| 2d 63 6f 6d 70 72 2d 63 | 6f 6d 70 72 65 73 73 69 |-compr-c|ompressi|
|00002ed0| 6f 6e 2d 69 6e 66 6f 2d | 6c 69 73 74 20 22 5c 5c |on-info-|list "\\|
|00002ee0| 28 5b 30 2d 39 5d 2b 5c | 5c 29 5c 5c 28 22 20 6d |([0-9]+\|\)\\(" m|
|00002ef0| 61 70 63 6f 6e 63 61 74 | 20 23 5b 28 69 29 20 22 |apconcat| #[(i) "|
|00002f00| 08 c1 48 87 22 20 5b 69 | 20 30 5d 20 32 5d 20 22 |..H." [i| 0] 2] "|
|00002f10| 5c 5c 7c 22 20 22 5c 5c | 29 3f 22 20 22 5b 30 2d |\\|" "\\|)?" "[0-|
|00002f20| 39 5d 2b 24 22 5d 20 35 | 29 20 28 23 24 20 2e 20 |9]+$"] 5|) (#$ . |
|00002f30| 31 31 38 35 38 29 29 0a | 23 40 34 33 20 52 65 67 |11858)).|#@43 Reg|
|00002f40| 65 78 70 20 74 68 61 74 | 20 6d 61 74 63 68 65 73 |exp that| matches|
|00002f50| 20 6e 75 6d 65 72 69 63 | 61 6c 20 66 69 6c 65 20 | numeric|al file |
|00002f60| 6e 61 6d 65 73 2e 1f 0a | 28 64 65 66 76 61 72 20 |names...|(defvar |
|00002f70| 6e 6e 68 65 61 64 65 72 | 2d 6e 75 6d 65 72 69 63 |nnheader|-numeric|
|00002f80| 61 6c 2d 73 68 6f 72 74 | 2d 66 69 6c 65 73 20 28 |al-short|-files (|
|00002f90| 63 6f 6e 63 61 74 20 22 | 5e 22 20 6e 6e 68 65 61 |concat "|^" nnhea|
|00002fa0| 64 65 72 2d 6e 75 6d 65 | 72 69 63 61 6c 2d 66 69 |der-nume|rical-fi|
|00002fb0| 6c 65 73 29 20 28 23 24 | 20 2e 20 31 32 30 39 33 |les) (#$| . 12093|
|00002fc0| 29 29 0a 23 40 34 38 20 | 52 65 67 65 78 70 20 74 |)).#@48 |Regexp t|
|00002fd0| 68 61 74 20 6d 61 74 63 | 68 65 73 20 6e 75 6d 65 |hat matc|hes nume|
|00002fe0| 72 69 63 61 6c 20 66 75 | 6c 6c 20 66 69 6c 65 20 |rical fu|ll file |
|00002ff0| 70 61 74 68 73 2e 1f 0a | 28 64 65 66 76 61 72 20 |paths...|(defvar |
|00003000| 6e 6e 68 65 61 64 65 72 | 2d 6e 75 6d 65 72 69 63 |nnheader|-numeric|
|00003010| 61 6c 2d 66 75 6c 6c 2d | 66 69 6c 65 73 20 28 63 |al-full-|files (c|
|00003020| 6f 6e 63 61 74 20 22 2f | 22 20 6e 6e 68 65 61 64 |oncat "/|" nnhead|
|00003030| 65 72 2d 6e 75 6d 65 72 | 69 63 61 6c 2d 66 69 6c |er-numer|ical-fil|
|00003040| 65 73 29 20 28 23 24 20 | 2e 20 31 32 32 33 32 29 |es) (#$ |. 12232)|
|00003050| 29 0a 23 40 34 39 20 54 | 61 6b 65 20 61 20 66 69 |).#@49 T|ake a fi|
|00003060| 6c 65 20 6e 61 6d 65 20 | 61 6e 64 20 72 65 74 75 |le name |and retu|
|00003070| 72 6e 20 74 68 65 20 61 | 72 74 69 63 6c 65 20 6e |rn the a|rticle n|
|00003080| 75 6d 62 65 72 2e 1f 0a | 28 64 65 66 61 6c 69 61 |umber...|(defalia|
|00003090| 73 20 27 6e 6e 68 65 61 | 64 65 72 2d 66 69 6c 65 |s 'nnhea|der-file|
|000030a0| 2d 74 6f 2d 6e 75 6d 62 | 65 72 20 23 5b 28 66 69 |-to-numb|er #[(fi|
|000030b0| 6c 65 29 20 22 c0 c1 21 | ac 84 c2 0b 21 87 c4 0d |le) "..!|....!...|
|000030c0| 0b 5c 22 88 c2 c6 c7 0b | 5c 22 21 87 22 20 5b 62 |.\".....|\"!." [b|
|000030d0| 6f 75 6e 64 70 20 6a 6b | 61 2d 63 6f 6d 70 72 2d |oundp jk|a-compr-|
|000030e0| 63 6f 6d 70 72 65 73 73 | 69 6f 6e 2d 69 6e 66 6f |compress|ion-info|
|000030f0| 2d 6c 69 73 74 20 73 74 | 72 69 6e 67 2d 74 6f 2d |-list st|ring-to-|
|00003100| 69 6e 74 20 66 69 6c 65 | 20 73 74 72 69 6e 67 2d |int file| string-|
|00003110| 6d 61 74 63 68 20 6e 6e | 68 65 61 64 65 72 2d 6e |match nn|header-n|
|00003120| 75 6d 65 72 69 63 61 6c | 2d 73 68 6f 72 74 2d 66 |umerical|-short-f|
|00003130| 69 6c 65 73 20 6d 61 74 | 63 68 2d 73 74 72 69 6e |iles mat|ch-strin|
|00003140| 67 20 30 5d 20 34 20 28 | 23 24 20 2e 20 31 32 33 |g 0] 4 (|#$ . 123|
|00003150| 37 35 29 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |75)]).(b|yte-code|
|00003160| 20 22 c0 c1 4e c2 73 ac | 85 c3 c4 c0 5c 22 88 c5 | "..N.s.|....\"..|
|00003170| c0 c1 c6 23 87 22 20 5b | 6e 6e 68 65 61 64 65 72 |...#." [|nnheader|
|00003180| 2d 66 69 6c 65 2d 74 6f | 2d 6e 75 6d 62 65 72 20 |-file-to|-number |
|00003190| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 72 20 28 |byte-opt|imizer (|
|000031a0| 6e 69 6c 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |nil byte|-compile|
|000031b0| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 29 20 |-inline-|expand) |
|000031c0| 65 72 72 6f 72 20 22 25 | 73 20 61 6c 72 65 61 64 |error "%|s alread|
|000031d0| 79 20 68 61 73 20 61 20 | 62 79 74 65 2d 6f 70 74 |y has a |byte-opt|
|000031e0| 69 6d 69 7a 65 72 2c 20 | 63 61 6e 27 74 20 6d 61 |imizer, |can't ma|
|000031f0| 6b 65 20 69 74 20 69 6e | 6c 69 6e 65 22 20 70 75 |ke it in|line" pu|
|00003200| 74 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |t byte-c|ompile-i|
|00003210| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 5d 20 34 29 |nline-ex|pand] 4)|
|00003220| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6e 6e 68 65 |.(defali|as 'nnhe|
|00003230| 61 64 65 72 2d 64 69 72 | 65 63 74 6f 72 79 2d 66 |ader-dir|ectory-f|
|00003240| 69 6c 65 73 2d 73 61 66 | 65 20 23 5b 28 26 72 65 |iles-saf|e #[(&re|
|00003250| 73 74 20 61 72 67 73 29 | 20 22 c0 c1 5c 6e 5c 22 |st args)| "..\n\"|
|00003260| c0 c1 5c 6e 5c 22 1b 89 | 1c 47 0b 47 56 ab 83 0c |..\n\"..|.G.GV...|
|00003270| aa 81 0b 2a 87 22 20 5b | 61 70 70 6c 79 20 64 69 |...*." [|apply di|
|00003280| 72 65 63 74 6f 72 79 2d | 66 69 6c 65 73 20 61 72 |rectory-|files ar|
|00003290| 67 73 20 73 65 63 6f 6e | 64 20 66 69 72 73 74 5d |gs secon|d first]|
|000032a0| 20 35 5d 29 0a 23 40 35 | 32 20 52 65 74 75 72 6e | 5]).#@5|2 Return|
|000032b0| 20 61 20 6c 69 73 74 20 | 6f 66 20 61 6c 6c 20 61 | a list |of all a|
|000032c0| 72 74 69 63 6c 65 20 66 | 69 6c 65 73 20 69 6e 20 |rticle f|iles in |
|000032d0| 61 20 64 69 72 65 63 74 | 6f 72 79 2e 1f 0a 28 64 |a direct|ory...(d|
|000032e0| 65 66 61 6c 69 61 73 20 | 27 6e 6e 68 65 61 64 65 |efalias |'nnheade|
|000032f0| 72 2d 64 69 72 65 63 74 | 6f 72 79 2d 61 72 74 69 |r-direct|ory-arti|
|00003300| 63 6c 65 73 20 23 5b 28 | 64 69 72 29 20 22 c0 c1 |cles #[(|dir) "..|
|00003310| c2 0b c4 0d c6 24 5c 22 | 87 22 20 5b 6d 61 70 63 |.....$\"|." [mapc|
|00003320| 61 72 20 6e 6e 68 65 61 | 64 65 72 2d 66 69 6c 65 |ar nnhea|der-file|
|00003330| 2d 74 6f 2d 6e 75 6d 62 | 65 72 20 6e 6e 68 65 61 |-to-numb|er nnhea|
|00003340| 64 65 72 2d 64 69 72 65 | 63 74 6f 72 79 2d 66 69 |der-dire|ctory-fi|
|00003350| 6c 65 73 2d 73 61 66 65 | 20 64 69 72 20 6e 69 6c |les-safe| dir nil|
|00003360| 20 6e 6e 68 65 61 64 65 | 72 2d 6e 75 6d 65 72 69 | nnheade|r-numeri|
|00003370| 63 61 6c 2d 73 68 6f 72 | 74 2d 66 69 6c 65 73 20 |cal-shor|t-files |
|00003380| 74 5d 20 37 20 28 23 24 | 20 2e 20 31 32 39 37 30 |t] 7 (#$| . 12970|
|00003390| 29 5d 29 0a 23 40 34 37 | 20 52 65 74 75 72 6e 20 |)]).#@47| Return |
|000033a0| 61 6e 20 61 6c 69 73 74 | 20 6f 66 20 61 72 74 69 |an alist| of arti|
|000033b0| 63 6c 65 2f 66 69 6c 65 | 20 70 61 69 72 73 20 69 |cle/file| pairs i|
|000033c0| 6e 20 44 49 52 2e 1f 0a | 28 64 65 66 61 6c 69 61 |n DIR...|(defalia|
|000033d0| 73 20 27 6e 6e 68 65 61 | 64 65 72 2d 61 72 74 69 |s 'nnhea|der-arti|
|000033e0| 63 6c 65 2d 74 6f 2d 66 | 69 6c 65 2d 61 6c 69 73 |cle-to-f|ile-alis|
|000033f0| 74 20 23 5b 28 64 69 72 | 29 20 22 c0 c1 c2 0b c4 |t #[(dir|) ".....|
|00003400| 0d c6 24 5c 22 87 22 20 | 5b 6d 61 70 63 61 72 20 |..$\"." |[mapcar |
|00003410| 23 5b 28 66 69 6c 65 29 | 20 22 08 18 c1 c2 21 ac |#[(file)| "....!.|
|00003420| 85 c3 08 21 aa 8b c4 0d | 08 5c 22 88 c3 c6 c7 08 |...!....|.\".....|
|00003430| 5c 22 21 29 08 42 87 22 | 20 5b 66 69 6c 65 20 62 |\"!).B."| [file b|
|00003440| 6f 75 6e 64 70 20 6a 6b | 61 2d 63 6f 6d 70 72 2d |oundp jk|a-compr-|
|00003450| 63 6f 6d 70 72 65 73 73 | 69 6f 6e 2d 69 6e 66 6f |compress|ion-info|
|00003460| 2d 6c 69 73 74 20 73 74 | 72 69 6e 67 2d 74 6f 2d |-list st|ring-to-|
|00003470| 69 6e 74 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |int stri|ng-match|
|00003480| 20 6e 6e 68 65 61 64 65 | 72 2d 6e 75 6d 65 72 69 | nnheade|r-numeri|
|00003490| 63 61 6c 2d 73 68 6f 72 | 74 2d 66 69 6c 65 73 20 |cal-shor|t-files |
|000034a0| 6d 61 74 63 68 2d 73 74 | 72 69 6e 67 20 30 5d 20 |match-st|ring 0] |
|000034b0| 34 5d 20 6e 6e 68 65 61 | 64 65 72 2d 64 69 72 65 |4] nnhea|der-dire|
|000034c0| 63 74 6f 72 79 2d 66 69 | 6c 65 73 2d 73 61 66 65 |ctory-fi|les-safe|
|000034d0| 20 64 69 72 20 6e 69 6c | 20 6e 6e 68 65 61 64 65 | dir nil| nnheade|
|000034e0| 72 2d 6e 75 6d 65 72 69 | 63 61 6c 2d 73 68 6f 72 |r-numeri|cal-shor|
|000034f0| 74 2d 66 69 6c 65 73 20 | 74 5d 20 37 20 28 23 24 |t-files |t] 7 (#$|
|00003500| 20 2e 20 31 33 32 30 39 | 29 5d 29 0a 23 40 34 38 | . 13209|)]).#@48|
|00003510| 20 46 6f 6c 64 20 63 6f | 6e 74 69 6e 75 61 74 69 | Fold co|ntinuati|
|00003520| 6f 6e 20 6c 69 6e 65 73 | 20 69 6e 20 74 68 65 20 |on lines| in the |
|00003530| 63 75 72 72 65 6e 74 20 | 62 75 66 66 65 72 2e 1f |current |buffer..|
|00003540| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6e 6e 68 65 |.(defali|as 'nnhe|
|00003550| 61 64 65 72 2d 66 6f 6c | 64 2d 63 6f 6e 74 69 6e |ader-fol|d-contin|
|00003560| 75 61 74 69 6f 6e 2d 6c | 69 6e 65 73 20 23 5b 6e |uation-l|ines #[n|
|00003570| 69 6c 20 22 c0 c1 c2 5c | 22 87 22 20 5b 6e 6e 68 |il "...\|"." [nnh|
|00003580| 65 61 64 65 72 2d 72 65 | 70 6c 61 63 65 2d 72 65 |eader-re|place-re|
|00003590| 67 65 78 70 20 22 5c 5c | 28 0d 3f 5c 6e 5b 20 09 |gexp "\\|(.?\n[ .|
|000035a0| 5d 2b 5c 5c 29 2b 22 20 | 22 20 22 5d 20 33 20 28 |]+\\)+" |" "] 3 (|
|000035b0| 23 24 20 2e 20 31 33 35 | 38 35 29 5d 29 0a 28 64 |#$ . 135|85)]).(d|
|000035c0| 65 66 61 6c 69 61 73 20 | 27 6e 6e 68 65 61 64 65 |efalias |'nnheade|
|000035d0| 72 2d 74 72 61 6e 73 6c | 61 74 65 2d 66 69 6c 65 |r-transl|ate-file|
|000035e0| 2d 63 68 61 72 73 20 23 | 5b 28 66 69 6c 65 29 20 |-chars #|[(file) |
|000035f0| 22 08 ac 82 09 87 c2 1b | c4 1d c4 1e 06 c4 1e 07 |".......|........|
|00003600| c4 1e 08 c9 ca 09 5c 22 | ab 92 09 c2 94 54 c4 4f |......\"|.....T.O|
|00003610| 16 06 09 c2 89 94 54 4f | 16 07 aa 8a cb 09 21 16 |......TO|......!.|
|00003620| 06 cc 09 21 16 07 0e 06 | 47 16 08 0b 0e 08 57 ab |...!....|G.....W.|
|00003630| 97 0e 06 0b 48 08 b7 41 | 89 15 ab 86 0e 06 0b 0d |....H..A|........|
|00003640| 49 88 0b 54 89 13 aa 64 | 0e 07 0e 06 50 2d 87 22 |I..T...d|....P-."|
|00003650| 20 5b 6e 6e 68 65 61 64 | 65 72 2d 66 69 6c 65 2d | [nnhead|er-file-|
|00003660| 6e 61 6d 65 2d 74 72 61 | 6e 73 6c 61 74 69 6f 6e |name-tra|nslation|
|00003670| 2d 61 6c 69 73 74 20 66 | 69 6c 65 20 30 20 69 20 |-alist f|ile 0 i |
|00003680| 6e 69 6c 20 74 72 61 6e | 73 20 6c 65 61 66 20 70 |nil tran|s leaf p|
|00003690| 61 74 68 20 6c 65 6e 20 | 73 74 72 69 6e 67 2d 6d |ath len |string-m|
|000036a0| 61 74 63 68 20 22 2f 5b | 5e 2f 5d 2b 5c 5c 27 22 |atch "/[|^/]+\\'"|
|000036b0| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 6e 6f 6e 64 69 | file-na|me-nondi|
|000036c0| 72 65 63 74 6f 72 79 20 | 66 69 6c 65 2d 6e 61 6d |rectory |file-nam|
|000036d0| 65 2d 64 69 72 65 63 74 | 6f 72 79 5d 20 34 5d 29 |e-direct|ory] 4])|
|000036e0| 0a 23 40 38 34 20 52 65 | 70 6f 72 74 20 61 6e 20 |.#@84 Re|port an |
|000036f0| 65 72 72 6f 72 20 66 72 | 6f 6d 20 74 68 65 20 42 |error fr|om the B|
|00003700| 41 43 4b 45 4e 44 2e 0a | 54 68 65 20 66 69 72 73 |ACKEND..|The firs|
|00003710| 74 20 73 74 72 69 6e 67 | 20 69 6e 20 41 52 47 53 |t string| in ARGS|
|00003720| 20 63 61 6e 20 62 65 20 | 61 20 66 6f 72 6d 61 74 | can be |a format|
|00003730| 20 73 74 72 69 6e 67 2e | 1f 0a 28 64 65 66 61 6c | string.|..(defal|
|00003740| 69 61 73 20 27 6e 6e 68 | 65 61 64 65 72 2d 72 65 |ias 'nnh|eader-re|
|00003750| 70 6f 72 74 20 23 5b 28 | 62 61 63 6b 65 6e 64 20 |port #[(|backend |
|00003760| 26 72 65 73 74 20 61 72 | 67 73 29 20 22 c0 c1 c2 |&rest ar|gs) "...|
|00003770| 0b 5c 22 21 0c 47 c5 57 | ab 84 0c 40 aa 84 c6 c1 |.\"!.G.W|...@....|
|00003780| 0c 5c 22 4c 88 c7 87 22 | 20 5b 69 6e 74 65 72 6e |.\"L..."| [intern|
|00003790| 20 66 6f 72 6d 61 74 20 | 22 25 73 2d 73 74 61 74 | format |"%s-stat|
|000037a0| 75 73 2d 73 74 72 69 6e | 67 22 20 62 61 63 6b 65 |us-strin|g" backe|
|000037b0| 6e 64 20 61 72 67 73 20 | 32 20 61 70 70 6c 79 20 |nd args |2 apply |
|000037c0| 6e 69 6c 5d 20 34 20 28 | 23 24 20 2e 20 31 34 30 |nil] 4 (|#$ . 140|
|000037d0| 35 34 29 5d 29 0a 23 40 | 34 32 20 47 65 74 20 74 |54)]).#@|42 Get t|
|000037e0| 68 65 20 6d 6f 73 74 20 | 72 65 63 65 6e 74 20 72 |he most |recent r|
|000037f0| 65 70 6f 72 74 20 66 72 | 6f 6d 20 42 41 43 4b 45 |eport fr|om BACKE|
|00003800| 4e 44 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ND...(de|falias '|
|00003810| 6e 6e 68 65 61 64 65 72 | 2d 67 65 74 2d 72 65 70 |nnheader|-get-rep|
|00003820| 6f 72 74 20 23 5b 28 62 | 61 63 6b 65 6e 64 29 20 |ort #[(b|ackend) |
|00003830| 22 c0 c1 c2 8f 87 22 20 | 5b 6e 69 6c 20 28 62 79 |"....." |[nil (by|
|00003840| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 c3 c4 0d 5c |te-code |"......\|
|00003850| 22 21 4a 5c 22 87 22 20 | 5b 6d 65 73 73 61 67 65 |"!J\"." |[message|
|00003860| 20 22 25 73 22 20 69 6e | 74 65 72 6e 20 66 6f 72 | "%s" in|tern for|
|00003870| 6d 61 74 20 22 25 73 2d | 73 74 61 74 75 73 2d 73 |mat "%s-|status-s|
|00003880| 74 72 69 6e 67 22 20 62 | 61 63 6b 65 6e 64 5d 20 |tring" b|ackend] |
|00003890| 36 29 20 28 28 65 72 72 | 6f 72 20 28 6d 65 73 73 |6) ((err|or (mess|
|000038a0| 61 67 65 20 22 22 29 29 | 29 5d 20 33 20 28 23 24 |age ""))|)] 3 (#$|
|000038b0| 20 2e 20 31 34 32 39 39 | 29 5d 29 0a 23 40 31 36 | . 14299|)]).#@16|
|000038c0| 32 20 43 6c 65 61 72 20 | 74 68 65 20 63 6f 6d 6d |2 Clear |the comm|
|000038d0| 75 6e 69 63 61 74 69 6f | 6e 20 62 75 66 66 65 72 |unicatio|n buffer|
|000038e0| 20 61 6e 64 20 69 6e 73 | 65 72 74 20 46 4f 52 4d | and ins|ert FORM|
|000038f0| 41 54 20 61 6e 64 20 41 | 52 47 53 20 69 6e 74 6f |AT and A|RGS into|
|00003900| 20 74 68 65 20 62 75 66 | 66 65 72 2e 0a 49 66 20 | the buf|fer..If |
|00003910| 46 4f 52 4d 41 54 20 69 | 73 6e 27 74 20 61 20 66 |FORMAT i|sn't a f|
|00003920| 6f 72 6d 61 74 20 73 74 | 72 69 6e 67 2c 20 69 74 |ormat st|ring, it|
|00003930| 20 61 6e 64 20 61 6c 6c | 20 41 52 47 53 20 77 69 | and all| ARGS wi|
|00003940| 6c 6c 20 62 65 20 69 6e | 73 65 72 74 65 64 0a 77 |ll be in|serted.w|
|00003950| 69 74 68 6f 75 74 20 66 | 6f 72 6d 61 74 74 69 6e |ithout f|ormattin|
|00003960| 67 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6e |g...(def|alias 'n|
|00003970| 6e 68 65 61 64 65 72 2d | 69 6e 73 65 72 74 20 23 |nheader-|insert #|
|00003980| 5b 28 66 6f 72 6d 61 74 | 20 26 72 65 73 74 20 61 |[(format| &rest a|
|00003990| 72 67 73 29 20 22 8a 08 | 71 88 c1 20 88 c2 c3 0c |rgs) "..|q.. ....|
|000039a0| 5c 22 ab 8a c5 c4 0c 0e | 06 23 63 88 aa 87 c5 c7 |\"......|.#c.....|
|000039b0| 0c 0e 06 23 88 29 c8 87 | 22 20 5b 6e 6e 74 70 2d |...#.)..|" [nntp-|
|000039c0| 73 65 72 76 65 72 2d 62 | 75 66 66 65 72 20 65 72 |server-b|uffer er|
|000039d0| 61 73 65 2d 62 75 66 66 | 65 72 20 73 74 72 69 6e |ase-buff|er strin|
|000039e0| 67 2d 6d 61 74 63 68 20 | 22 25 22 20 66 6f 72 6d |g-match |"%" form|
|000039f0| 61 74 20 61 70 70 6c 79 | 20 61 72 67 73 20 69 6e |at apply| args in|
|00003a00| 73 65 72 74 20 74 5d 20 | 34 20 28 23 24 20 2e 20 |sert t] |4 (#$ . |
|00003a10| 31 34 35 33 30 29 5d 29 | 0a 23 40 34 37 20 52 65 |14530)])|.#@47 Re|
|00003a20| 70 6c 61 63 65 20 63 68 | 61 72 61 63 74 65 72 73 |place ch|aracters|
|00003a30| 20 69 6e 20 53 54 52 49 | 4e 47 20 66 72 6f 6d 20 | in STRI|NG from |
|00003a40| 46 52 4f 4d 20 74 6f 20 | 54 4f 2e 1f 0a 28 64 65 |FROM to |TO...(de|
|00003a50| 66 61 6c 69 61 73 20 27 | 6e 6e 68 65 61 64 65 72 |falias '|nnheader|
|00003a60| 2d 72 65 70 6c 61 63 65 | 2d 63 68 61 72 73 2d 69 |-replace|-chars-i|
|00003a70| 6e 2d 73 74 72 69 6e 67 | 20 23 5b 28 73 74 72 69 |n-string| #[(stri|
|00003a80| 6e 67 20 66 72 6f 6d 20 | 74 6f 29 20 22 08 c1 c2 |ng from |to) "...|
|00003a90| 4f 08 47 c1 1b 1c 18 0b | 0c 57 ab 93 08 0b 48 0d |O.G.....|.W....H.|
|00003aa0| 55 ab 86 08 0b 0e 06 49 | 88 0b 54 89 13 aa 69 08 |U......I|..T...i.|
|00003ab0| 2b 87 22 20 5b 73 74 72 | 69 6e 67 20 30 20 6e 69 |+." [str|ing 0 ni|
|00003ac0| 6c 20 69 64 78 20 6c 65 | 6e 20 66 72 6f 6d 20 74 |l idx le|n from t|
|00003ad0| 6f 5d 20 34 20 28 23 24 | 20 2e 20 31 34 38 37 38 |o] 4 (#$| . 14878|
|00003ae0| 29 5d 29 0a 23 40 34 34 | 20 52 65 74 75 72 6e 20 |)]).#@44| Return |
|00003af0| 61 20 67 72 6f 75 70 20 | 6e 61 6d 65 20 62 61 73 |a group |name bas|
|00003b00| 65 64 20 6f 6e 20 46 49 | 4c 45 20 61 6e 64 20 54 |ed on FI|LE and T|
|00003b10| 4f 50 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |OP...(de|falias '|
|00003b20| 6e 6e 68 65 61 64 65 72 | 2d 66 69 6c 65 2d 74 6f |nnheader|-file-to|
|00003b30| 2d 67 72 6f 75 70 20 23 | 5b 28 66 69 6c 65 20 26 |-group #|[(file &|
|00003b40| 6f 70 74 69 6f 6e 61 6c | 20 74 6f 70 29 20 22 c0 |optional| top) ".|
|00003b50| 09 ac 83 5c 6e aa 84 c3 | c4 c5 8f c6 c7 23 87 22 |...\n...|.....#."|
|00003b60| 20 5b 6e 6e 68 65 61 64 | 65 72 2d 72 65 70 6c 61 | [nnhead|er-repla|
|00003b70| 63 65 2d 63 68 61 72 73 | 2d 69 6e 2d 73 74 72 69 |ce-chars|-in-stri|
|00003b80| 6e 67 20 74 6f 70 20 66 | 69 6c 65 20 6e 69 6c 20 |ng top f|ile nil |
|00003b90| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 09 21 c0 |(byte-co|de "..!.|
|00003ba0| c2 0b 21 21 47 c4 4f 87 | 22 20 5b 65 78 70 61 6e |..!!G.O.|" [expan|
|00003bb0| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 66 69 6c 65 |d-file-n|ame file|
|00003bc0| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 61 73 2d 64 69 | file-na|me-as-di|
|00003bd0| 72 65 63 74 6f 72 79 20 | 74 6f 70 20 6e 69 6c 5d |rectory |top nil]|
|00003be0| 20 34 29 20 28 28 65 72 | 72 6f 72 20 22 22 29 29 | 4) ((er|ror ""))|
|00003bf0| 20 3f 5c 2f 20 3f 5c 2e | 5d 20 34 20 28 23 24 20 | ?\/ ?\.|] 4 (#$ |
|00003c00| 2e 20 31 35 30 38 31 29 | 5d 29 0a 23 40 34 35 20 |. 15081)|]).#@45 |
|00003c10| 4d 65 73 73 61 67 65 20 | 69 66 20 74 68 65 20 47 |Message |if the G|
|00003c20| 6e 75 73 20 62 61 63 6b | 65 6e 64 73 20 61 72 65 |nus back|ends are|
|00003c30| 20 74 61 6c 6b 61 74 69 | 76 65 2e 1f 0a 28 64 65 | talkati|ve...(de|
|00003c40| 66 61 6c 69 61 73 20 27 | 6e 6e 68 65 61 64 65 72 |falias '|nnheader|
|00003c50| 2d 6d 65 73 73 61 67 65 | 20 23 5b 28 6c 65 76 65 |-message| #[(leve|
|00003c60| 6c 20 26 72 65 73 74 20 | 61 72 67 73 29 20 22 08 |l &rest |args) ".|
|00003c70| a7 ab 85 09 08 58 ab 85 | c2 c3 0c 5c 22 87 c2 c5 |.....X..|...\"...|
|00003c80| 0c 5c 22 87 22 20 5b 67 | 6e 75 73 2d 76 65 72 62 |.\"." [g|nus-verb|
|00003c90| 6f 73 65 2d 62 61 63 6b | 65 6e 64 73 20 6c 65 76 |ose-back|ends lev|
|00003ca0| 65 6c 20 61 70 70 6c 79 | 20 6d 65 73 73 61 67 65 |el apply| message|
|00003cb0| 20 61 72 67 73 20 66 6f | 72 6d 61 74 5d 20 33 20 | args fo|rmat] 3 |
|00003cc0| 28 23 24 20 2e 20 31 35 | 33 37 36 29 5d 29 0a 23 |(#$ . 15|376)]).#|
|00003cd0| 40 35 37 20 52 65 74 75 | 72 6e 20 77 68 65 74 68 |@57 Retu|rn wheth|
|00003ce0| 65 72 20 74 68 65 20 62 | 61 63 6b 65 6e 64 73 20 |er the b|ackends |
|00003cf0| 73 68 6f 75 6c 64 20 62 | 65 20 76 65 72 62 6f 73 |should b|e verbos|
|00003d00| 65 20 6f 6e 20 4c 45 56 | 45 4c 2e 1f 0a 28 64 65 |e on LEV|EL...(de|
|00003d10| 66 61 6c 69 61 73 20 27 | 6e 6e 68 65 61 64 65 72 |falias '|nnheader|
|00003d20| 2d 62 65 2d 76 65 72 62 | 6f 73 65 20 23 5b 28 6c |-be-verb|ose #[(l|
|00003d30| 65 76 65 6c 29 20 22 08 | a7 3f ae 83 09 08 58 87 |evel) ".|.?....X.|
|00003d40| 22 20 5b 67 6e 75 73 2d | 76 65 72 62 6f 73 65 2d |" [gnus-|verbose-|
|00003d50| 62 61 63 6b 65 6e 64 73 | 20 6c 65 76 65 6c 5d 20 |backends| level] |
|00003d60| 32 20 28 23 24 20 2e 20 | 31 35 35 37 32 29 5d 29 |2 (#$ . |15572)])|
|00003d70| 0a 23 40 33 30 20 2a 43 | 6f 64 69 6e 67 20 73 79 |.#@30 *C|oding sy|
|00003d80| 73 74 65 6d 20 66 6f 72 | 20 70 61 74 68 6e 61 6d |stem for| pathnam|
|00003d90| 65 2e 1f 0a 28 64 65 66 | 76 61 72 20 6e 6e 68 65 |e...(def|var nnhe|
|00003da0| 61 64 65 72 2d 70 61 74 | 68 6e 61 6d 65 2d 63 6f |ader-pat|hname-co|
|00003db0| 64 69 6e 67 2d 73 79 73 | 74 65 6d 20 27 69 73 6f |ding-sys|tem 'iso|
|00003dc0| 2d 38 38 35 39 2d 31 20 | 28 23 24 20 2e 20 2d 31 |-8859-1 |(#$ . -1|
|00003dd0| 35 37 33 34 29 29 0a 23 | 40 32 36 20 4d 61 6b 65 |5734)).#|@26 Make|
|00003de0| 20 70 61 74 68 6e 61 6d | 65 20 66 6f 72 20 47 52 | pathnam|e for GR|
|00003df0| 4f 55 50 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |OUP...(d|efalias |
|00003e00| 27 6e 6e 68 65 61 64 65 | 72 2d 67 72 6f 75 70 2d |'nnheade|r-group-|
|00003e10| 70 61 74 68 6e 61 6d 65 | 20 23 5b 28 67 72 6f 75 |pathname| #[(grou|
|00003e20| 70 20 64 69 72 20 26 6f | 70 74 69 6f 6e 61 6c 20 |p dir &o|ptional |
|00003e30| 66 69 6c 65 29 20 22 c0 | c1 5c 6e 21 21 1a c3 5c |file) ".|.\n!!..\|
|00003e40| 6e 0c 50 21 ab 86 5c 6e | 0c c5 51 aa 8c 5c 6e c6 |n.P!..\n|..Q..\n.|
|00003e50| c7 0c c8 c9 23 0e 5c 6e | 5c 22 c5 51 29 0e 0b ac |....#.\n|\".Q)...|
|00003e60| 83 cc aa 8d 0e 0b a7 ab | 86 cd 0e 0b 21 aa 82 0e |........|....!...|
|00003e70| 0b 50 87 22 20 5b 66 69 | 6c 65 2d 6e 61 6d 65 2d |.P." [fi|le-name-|
|00003e80| 61 73 2d 64 69 72 65 63 | 74 6f 72 79 20 65 78 70 |as-direc|tory exp|
|00003e90| 61 6e 64 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 64 69 |and-file|-name di|
|00003ea0| 72 20 66 69 6c 65 2d 64 | 69 72 65 63 74 6f 72 79 |r file-d|irectory|
|00003eb0| 2d 70 20 67 72 6f 75 70 | 20 22 2f 22 20 67 6e 75 |-p group| "/" gnu|
|00003ec0| 73 2d 65 6e 63 6f 64 65 | 2d 63 6f 64 69 6e 67 2d |s-encode|-coding-|
|00003ed0| 73 74 72 69 6e 67 20 6e | 6e 68 65 61 64 65 72 2d |string n|nheader-|
|00003ee0| 72 65 70 6c 61 63 65 2d | 63 68 61 72 73 2d 69 6e |replace-|chars-in|
|00003ef0| 2d 73 74 72 69 6e 67 20 | 3f 5c 2e 20 3f 5c 2f 20 |-string |?\. ?\/ |
|00003f00| 6e 6e 68 65 61 64 65 72 | 2d 70 61 74 68 6e 61 6d |nnheader|-pathnam|
|00003f10| 65 2d 63 6f 64 69 6e 67 | 2d 73 79 73 74 65 6d 20 |e-coding|-system |
|00003f20| 66 69 6c 65 20 22 22 20 | 69 6e 74 2d 74 6f 2d 73 |file "" |int-to-s|
|00003f30| 74 72 69 6e 67 5d 20 36 | 20 28 23 24 20 2e 20 31 |tring] 6| (#$ . 1|
|00003f40| 35 38 33 36 29 5d 29 0a | 23 40 34 30 20 52 65 74 |5836)]).|#@40 Ret|
|00003f50| 75 72 6e 20 6e 6f 6e 2d | 6e 69 6c 20 69 66 20 46 |urn non-|nil if F|
|00003f60| 4f 52 4d 20 69 73 20 66 | 75 6e 63 61 6c 6c 61 62 |ORM is f|uncallab|
|00003f70| 6c 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |le...(de|falias '|
|00003f80| 6e 6e 68 65 61 64 65 72 | 2d 66 75 6e 63 74 69 6f |nnheader|-functio|
|00003f90| 6e 70 20 23 5b 28 66 6f | 72 6d 29 20 22 08 39 ab |np #[(fo|rm) ".9.|
|00003fa0| 85 c1 08 21 ae 88 08 3c | ad 84 08 40 c2 61 87 22 |...!...<|...@.a."|
|00003fb0| 20 5b 66 6f 72 6d 20 66 | 62 6f 75 6e 64 70 20 6c | [form f|boundp l|
|00003fc0| 61 6d 62 64 61 5d 20 32 | 20 28 23 24 20 2e 20 31 |ambda] 2| (#$ . 1|
|00003fd0| 36 32 30 35 29 5d 29 0a | 23 40 33 34 20 43 6f 6e |6205)]).|#@34 Con|
|00003fe0| 63 61 74 20 44 49 52 20 | 61 73 20 64 69 72 65 63 |cat DIR |as direc|
|00003ff0| 74 6f 72 79 20 74 6f 20 | 46 49 4c 45 2e 1f 0a 28 |tory to |FILE...(|
|00004000| 64 65 66 61 6c 69 61 73 | 20 27 6e 6e 68 65 61 64 |defalias| 'nnhead|
|00004010| 65 72 2d 63 6f 6e 63 61 | 74 20 23 5b 28 64 69 72 |er-conca|t #[(dir|
|00004020| 20 26 72 65 73 74 20 66 | 69 6c 65 73 29 20 22 c0 | &rest f|iles) ".|
|00004030| c1 c2 0b 21 0c 23 87 22 | 20 5b 61 70 70 6c 79 20 |...!.#."| [apply |
|00004040| 63 6f 6e 63 61 74 20 66 | 69 6c 65 2d 6e 61 6d 65 |concat f|ile-name|
|00004050| 2d 61 73 2d 64 69 72 65 | 63 74 6f 72 79 20 64 69 |-as-dire|ctory di|
|00004060| 72 20 66 69 6c 65 73 5d | 20 34 20 28 23 24 20 2e |r files]| 4 (#$ .|
|00004070| 20 31 36 33 34 39 29 5d | 29 0a 23 40 33 37 20 53 | 16349)]|).#@37 S|
|00004080| 74 72 69 70 20 5e 4d 20 | 66 72 6f 6d 20 74 68 65 |trip ^M |from the|
|00004090| 20 65 6e 64 20 6f 66 20 | 61 6c 6c 20 6c 69 6e 65 | end of |all line|
|000040a0| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6e |s...(def|alias 'n|
|000040b0| 6e 68 65 61 64 65 72 2d | 6d 73 2d 73 74 72 69 70 |nheader-|ms-strip|
|000040c0| 2d 63 72 20 23 5b 6e 69 | 6c 20 22 8a 65 62 88 c0 |-cr #[ni|l ".eb..|
|000040d0| c1 c2 c3 23 ad 86 c4 c5 | 21 88 aa 73 29 87 22 20 |...#....|!..s)." |
|000040e0| 5b 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |[re-sear|ch-forwa|
|000040f0| 72 64 20 22 0d 24 22 20 | 6e 69 6c 20 74 20 64 65 |rd ".$" |nil t de|
|00004100| 6c 65 74 65 2d 62 61 63 | 6b 77 61 72 64 2d 63 68 |lete-bac|kward-ch|
|00004110| 61 72 20 31 5d 20 34 20 | 28 23 24 20 2e 20 31 36 |ar 1] 4 |(#$ . 16|
|00004120| 35 31 31 29 5d 29 0a 23 | 40 33 36 20 52 65 74 75 |511)]).#|@36 Retu|
|00004130| 72 6e 20 74 68 65 20 66 | 69 6c 65 20 73 69 7a 65 |rn the f|ile size|
|00004140| 20 6f 66 20 46 49 4c 45 | 20 6f 72 20 30 2e 1f 0a | of FILE| or 0...|
|00004150| 28 64 65 66 61 6c 69 61 | 73 20 27 6e 6e 68 65 61 |(defalia|s 'nnhea|
|00004160| 64 65 72 2d 66 69 6c 65 | 2d 73 69 7a 65 20 23 5b |der-file|-size #[|
|00004170| 28 66 69 6c 65 29 20 22 | c0 c1 5c 6e 21 38 ae 81 |(file) "|..\n!8..|
|00004180| c3 87 22 20 5b 37 20 66 | 69 6c 65 2d 61 74 74 72 |.." [7 f|ile-attr|
|00004190| 69 62 75 74 65 73 20 66 | 69 6c 65 20 30 5d 20 33 |ibutes f|ile 0] 3|
|000041a0| 20 28 23 24 20 2e 20 31 | 36 36 38 34 29 5d 29 0a | (#$ . 1|6684)]).|
|000041b0| 23 40 31 31 33 20 47 6f | 20 74 68 72 6f 75 67 68 |#@113 Go| through|
|000041c0| 20 74 68 65 20 70 61 74 | 68 20 61 6e 64 20 66 69 | the pat|h and fi|
|000041d0| 6e 64 20 74 68 65 20 22 | 2e 2e 2e 2f 65 74 63 2f |nd the "|.../etc/|
|000041e0| 50 41 43 4b 41 47 45 22 | 20 64 69 72 65 63 74 6f |PACKAGE"| directo|
|000041f0| 72 79 2e 0a 49 66 20 46 | 49 4c 45 2c 20 66 69 6e |ry..If F|ILE, fin|
|00004200| 64 20 74 68 65 20 22 2e | 2e 2e 2f 65 74 63 2f 50 |d the ".|../etc/P|
|00004210| 41 43 4b 41 47 45 22 20 | 66 69 6c 65 20 69 6e 73 |ACKAGE" |file ins|
|00004220| 74 65 61 64 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |tead...(|defalias|
|00004230| 20 27 6e 6e 68 65 61 64 | 65 72 2d 66 69 6e 64 2d | 'nnhead|er-find-|
|00004240| 65 74 63 2d 64 69 72 65 | 63 74 6f 72 79 20 23 5b |etc-dire|ctory #[|
|00004250| 28 70 61 63 6b 61 67 65 | 20 26 6f 70 74 69 6f 6e |(package| &option|
|00004260| 61 6c 20 66 69 6c 65 29 | 20 22 08 c1 89 1a 1b 89 |al file)| "......|
|00004270| 1c ab b2 0c 40 ab a8 c5 | c6 c7 0c 40 21 21 c8 0e |....@...|...@!!..|
|00004280| 09 0e 5c 6e ab 83 cb aa | 81 cc 52 89 13 21 ab 90 |..\n....|..R..!..|
|00004290| 0e 5c 6e ac 85 cd 0b 21 | ab 87 0b 12 c1 89 14 aa |.\n....!|........|
|000042a0| 52 0c 41 89 14 ac 4e 5c | 6e 2b 87 22 20 5b 6c 6f |R.A...N\|n+." [lo|
|000042b0| 61 64 2d 70 61 74 68 20 | 6e 69 6c 20 72 65 73 75 |ad-path |nil resu|
|000042c0| 6c 74 20 64 69 72 20 70 | 61 74 68 20 66 69 6c 65 |lt dir p|ath file|
|000042d0| 2d 65 78 69 73 74 73 2d | 70 20 66 69 6c 65 2d 6e |-exists-|p file-n|
|000042e0| 61 6d 65 2d 64 69 72 65 | 63 74 6f 72 79 20 64 69 |ame-dire|ctory di|
|000042f0| 72 65 63 74 6f 72 79 2d | 66 69 6c 65 2d 6e 61 6d |rectory-|file-nam|
|00004300| 65 20 22 65 74 63 2f 22 | 20 70 61 63 6b 61 67 65 |e "etc/"| package|
|00004310| 20 66 69 6c 65 20 22 22 | 20 22 2f 22 20 66 69 6c | file ""| "/" fil|
|00004320| 65 2d 64 69 72 65 63 74 | 6f 72 79 2d 70 5d 20 36 |e-direct|ory-p] 6|
|00004330| 20 28 23 24 20 2e 20 31 | 36 38 32 32 29 5d 29 0a | (#$ . 1|6822)]).|
|00004340| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 09 42 11 |(byte-co|de "..B.|
|00004350| c2 09 42 11 c0 87 22 20 | 5b 61 6e 67 65 2d 66 74 |..B..." |[ange-ft|
|00004360| 70 2d 70 61 74 68 2d 66 | 6f 72 6d 61 74 20 63 75 |p-path-f|ormat cu|
|00004370| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 20 |rrent-lo|ad-list |
|00004380| 65 66 73 2d 70 61 74 68 | 2d 72 65 67 65 78 70 5d |efs-path|-regexp]|
|00004390| 20 32 29 0a 23 40 35 35 | 20 52 65 2d 72 65 61 64 | 2).#@55| Re-read|
|000043a0| 20 64 69 72 65 63 74 6f | 72 79 20 50 41 54 48 20 | directo|ry PATH |
|000043b0| 69 66 20 50 41 54 48 20 | 69 73 20 6f 6e 20 61 20 |if PATH |is on a |
|000043c0| 72 65 6d 6f 74 65 20 73 | 79 73 74 65 6d 2e 1f 0a |remote s|ystem...|
|000043d0| 28 64 65 66 61 6c 69 61 | 73 20 27 6e 6e 68 65 61 |(defalia|s 'nnhea|
|000043e0| 64 65 72 2d 72 65 2d 72 | 65 61 64 2d 64 69 72 20 |der-re-r|ead-dir |
|000043f0| 23 5b 28 70 61 74 68 29 | 20 22 c0 c1 21 ab 8f c2 |#[(path)| "..!...|
|00004400| c3 21 ab 8a c4 0b 0d 5c | 22 ad 99 c1 0d 21 87 c0 |.!.....\|"....!..|
|00004410| c6 21 ad 90 c2 c7 21 ad | 8b c4 0e 07 40 0d 5c 22 |.!....!.|....@.\"|
|00004420| ad 83 c6 0d 21 87 22 20 | 5b 66 62 6f 75 6e 64 70 |....!." |[fboundp|
|00004430| 20 65 66 73 2d 72 65 2d | 72 65 61 64 2d 64 69 72 | efs-re-|read-dir|
|00004440| 20 62 6f 75 6e 64 70 20 | 65 66 73 2d 70 61 74 68 | boundp |efs-path|
|00004450| 2d 72 65 67 65 78 70 20 | 73 74 72 69 6e 67 2d 6d |-regexp |string-m|
|00004460| 61 74 63 68 20 70 61 74 | 68 20 61 6e 67 65 2d 66 |atch pat|h ange-f|
|00004470| 74 70 2d 72 65 2d 72 65 | 61 64 2d 64 69 72 20 61 |tp-re-re|ad-dir a|
|00004480| 6e 67 65 2d 66 74 70 2d | 70 61 74 68 2d 66 6f 72 |nge-ftp-|path-for|
|00004490| 6d 61 74 5d 20 33 20 28 | 23 24 20 2e 20 31 37 33 |mat] 3 (|#$ . 173|
|000044a0| 30 35 29 5d 29 0a 23 40 | 34 36 20 43 6f 64 69 6e |05)]).#@|46 Codin|
|000044b0| 67 20 73 79 73 74 65 6d | 20 75 73 65 64 20 69 6e |g system| used in|
|000044c0| 20 66 69 6c 65 20 62 61 | 63 6b 65 6e 64 73 20 6f | file ba|ckends o|
|000044d0| 66 20 47 6e 75 73 2e 1f | 0a 28 64 65 66 76 61 72 |f Gnus..|.(defvar|
|000044e0| 20 6e 6e 68 65 61 64 65 | 72 2d 66 69 6c 65 2d 63 | nnheade|r-file-c|
|000044f0| 6f 64 69 6e 67 2d 73 79 | 73 74 65 6d 20 6e 69 6c |oding-sy|stem nil|
|00004500| 20 28 23 24 20 2e 20 31 | 37 35 37 39 29 29 0a 23 | (#$ . 1|7579)).#|
|00004510| 40 33 30 38 20 4c 69 6b | 65 20 60 69 6e 73 65 72 |@308 Lik|e `inser|
|00004520| 74 2d 66 69 6c 65 2d 63 | 6f 6e 74 65 6e 74 73 27 |t-file-c|ontents'|
|00004530| 2c 20 71 2e 76 2e 2c 20 | 62 75 74 20 6f 6e 6c 79 |, q.v., |but only|
|00004540| 20 72 65 61 64 73 20 69 | 6e 20 74 68 65 20 66 69 | reads i|n the fi|
|00004550| 6c 65 2e 0a 41 20 62 75 | 66 66 65 72 20 6d 61 79 |le..A bu|ffer may|
|00004560| 20 62 65 20 6d 6f 64 69 | 66 69 65 64 20 69 6e 20 | be modi|fied in |
|00004570| 73 65 76 65 72 61 6c 20 | 77 61 79 73 20 61 66 74 |several |ways aft|
|00004580| 65 72 20 72 65 61 64 69 | 6e 67 20 69 6e 74 6f 20 |er readi|ng into |
|00004590| 74 68 65 20 62 75 66 66 | 65 72 20 64 75 65 0a 74 |the buff|er due.t|
|000045a0| 6f 20 61 64 76 61 6e 63 | 65 64 20 45 6d 61 63 73 |o advanc|ed Emacs|
|000045b0| 20 66 65 61 74 75 72 65 | 73 2c 20 73 75 63 68 20 | feature|s, such |
|000045c0| 61 73 20 66 69 6c 65 2d | 6e 61 6d 65 2d 68 61 6e |as file-|name-han|
|000045d0| 64 6c 65 72 73 2c 20 66 | 6f 72 6d 61 74 20 64 65 |dlers, f|ormat de|
|000045e0| 63 6f 64 69 6e 67 2c 0a | 66 69 6e 64 2d 66 69 6c |coding,.|find-fil|
|000045f0| 65 2d 68 6f 6f 6b 73 2c | 20 65 74 63 2e 0a 20 20 |e-hooks,| etc.. |
|00004600| 54 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 65 6e |This fun|ction en|
|00004610| 73 75 72 65 73 20 74 68 | 61 74 20 6e 6f 6e 65 20 |sures th|at none |
|00004620| 6f 66 20 74 68 65 73 65 | 20 6d 6f 64 69 66 69 63 |of these| modific|
|00004630| 61 74 69 6f 6e 73 20 77 | 69 6c 6c 20 74 61 6b 65 |ations w|ill take|
|00004640| 20 70 6c 61 63 65 2e 1f | 0a 28 64 65 66 61 6c 69 | place..|.(defali|
|00004650| 61 73 20 27 6e 6e 68 65 | 61 64 65 72 2d 69 6e 73 |as 'nnhe|ader-ins|
|00004660| 65 72 74 2d 66 69 6c 65 | 2d 63 6f 6e 74 65 6e 74 |ert-file|-content|
|00004670| 73 20 23 5b 28 66 69 6c | 65 6e 61 6d 65 20 26 6f |s #[(fil|ename &o|
|00004680| 70 74 69 6f 6e 61 6c 20 | 76 69 73 69 74 20 62 65 |ptional |visit be|
|00004690| 67 20 65 6e 64 20 72 65 | 70 6c 61 63 65 29 20 22 |g end re|place) "|
|000046a0| c0 c1 20 c2 c0 0b 1c 1d | 1e 06 1e 07 1e 08 c9 0e |.. .....|........|
|000046b0| 5c 6e 0e 0b 0e 0c 0e 0d | 0e 0e 25 2d 87 22 20 5b |\n......|..%-." [|
|000046c0| 6e 69 6c 20 6e 6e 68 65 | 61 64 65 72 2d 61 75 74 |nil nnhe|ader-aut|
|000046d0| 6f 2d 6d 6f 64 65 2d 61 | 6c 69 73 74 20 66 75 6e |o-mode-a|list fun|
|000046e0| 64 61 6d 65 6e 74 61 6c | 2d 6d 6f 64 65 20 6e 6e |damental|-mode nn|
|000046f0| 68 65 61 64 65 72 2d 66 | 69 6c 65 2d 63 6f 64 69 |header-f|ile-codi|
|00004700| 6e 67 2d 73 79 73 74 65 | 6d 20 63 6f 64 69 6e 67 |ng-syste|m coding|
|00004710| 2d 73 79 73 74 65 6d 2d | 66 6f 72 2d 72 65 61 64 |-system-|for-read|
|00004720| 20 61 66 74 65 72 2d 69 | 6e 73 65 72 74 2d 66 69 | after-i|nsert-fi|
|00004730| 6c 65 2d 66 75 6e 63 74 | 69 6f 6e 73 20 64 65 66 |le-funct|ions def|
|00004740| 61 75 6c 74 2d 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 |ault-maj|or-mode |
|00004750| 61 75 74 6f 2d 6d 6f 64 | 65 2d 61 6c 69 73 74 20 |auto-mod|e-alist |
|00004760| 66 6f 72 6d 61 74 2d 61 | 6c 69 73 74 20 69 6e 73 |format-a|list ins|
|00004770| 65 72 74 2d 66 69 6c 65 | 2d 63 6f 6e 74 65 6e 74 |ert-file|-content|
|00004780| 73 20 66 69 6c 65 6e 61 | 6d 65 20 76 69 73 69 74 |s filena|me visit|
|00004790| 20 62 65 67 20 65 6e 64 | 20 72 65 70 6c 61 63 65 | beg end| replace|
|000047a0| 5d 20 36 20 28 23 24 20 | 2e 20 31 37 36 38 35 29 |] 6 (#$ |. 17685)|
|000047b0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6e 6e |]).(defa|lias 'nn|
|000047c0| 68 65 61 64 65 72 2d 66 | 69 6e 64 2d 66 69 6c 65 |header-f|ind-file|
|000047d0| 2d 6e 6f 73 65 6c 65 63 | 74 20 23 5b 28 26 72 65 |-noselec|t #[(&re|
|000047e0| 73 74 20 61 72 67 73 29 | 20 22 c0 c1 20 c2 c0 89 |st args)| ".. ...|
|000047f0| 0b 1c 1d 1e 06 1e 07 1e | 08 1e 09 ca cb 0e 0c 5c |........|.......\|
|00004800| 22 2e 06 87 22 20 5b 6e | 69 6c 20 6e 6e 68 65 61 |"..." [n|il nnhea|
|00004810| 64 65 72 2d 61 75 74 6f | 2d 6d 6f 64 65 2d 61 6c |der-auto|-mode-al|
|00004820| 69 73 74 20 66 75 6e 64 | 61 6d 65 6e 74 61 6c 2d |ist fund|amental-|
|00004830| 6d 6f 64 65 20 6e 6e 68 | 65 61 64 65 72 2d 66 69 |mode nnh|eader-fi|
|00004840| 6c 65 2d 63 6f 64 69 6e | 67 2d 73 79 73 74 65 6d |le-codin|g-system|
|00004850| 20 63 6f 64 69 6e 67 2d | 73 79 73 74 65 6d 2d 66 | coding-|system-f|
|00004860| 6f 72 2d 72 65 61 64 20 | 61 66 74 65 72 2d 69 6e |or-read |after-in|
|00004870| 73 65 72 74 2d 66 69 6c | 65 2d 66 75 6e 63 74 69 |sert-fil|e-functi|
|00004880| 6f 6e 73 20 65 6e 61 62 | 6c 65 2d 6c 6f 63 61 6c |ons enab|le-local|
|00004890| 2d 76 61 72 69 61 62 6c | 65 73 20 64 65 66 61 75 |-variabl|es defau|
|000048a0| 6c 74 2d 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 61 75 |lt-major|-mode au|
|000048b0| 74 6f 2d 6d 6f 64 65 2d | 61 6c 69 73 74 20 66 6f |to-mode-|alist fo|
|000048c0| 72 6d 61 74 2d 61 6c 69 | 73 74 20 61 70 70 6c 79 |rmat-ali|st apply|
|000048d0| 20 66 69 6e 64 2d 66 69 | 6c 65 2d 6e 6f 73 65 6c | find-fi|le-nosel|
|000048e0| 65 63 74 20 61 72 67 73 | 5d 20 36 5d 29 0a 23 40 |ect args|] 6]).#@|
|000048f0| 36 33 20 52 65 74 75 72 | 6e 20 61 6e 20 60 61 75 |63 Retur|n an `au|
|00004900| 74 6f 2d 6d 6f 64 65 2d | 61 6c 69 73 74 27 20 77 |to-mode-|alist' w|
|00004910| 69 74 68 20 6f 6e 6c 79 | 20 74 68 65 20 2e 67 7a |ith only| the .gz|
|00004920| 20 28 65 74 63 29 20 74 | 68 69 6e 67 69 65 73 2e | (etc) t|hingies.|
|00004930| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6e 6e 68 |..(defal|ias 'nnh|
|00004940| 65 61 64 65 72 2d 61 75 | 74 6f 2d 6d 6f 64 65 2d |eader-au|to-mode-|
|00004950| 61 6c 69 73 74 20 23 5b | 6e 69 6c 20 22 08 c1 1a |alist #[|nil "...|
|00004960| 1b 0b ab 92 0b 40 41 3c | ab 85 0b 40 5c 6e 42 12 |.....@A<|...@\nB.|
|00004970| 0b 89 41 13 88 aa 6b 5c | 6e 9f 2a 87 22 20 5b 61 |..A...k\|n.*." [a|
|00004980| 75 74 6f 2d 6d 6f 64 65 | 2d 61 6c 69 73 74 20 6e |uto-mode|-alist n|
|00004990| 69 6c 20 6f 75 74 20 61 | 6c 69 73 74 5d 20 32 20 |il out a|list] 2 |
|000049a0| 28 23 24 20 2e 20 31 38 | 36 37 35 29 5d 29 0a 23 |(#$ . 18|675)]).#|
|000049b0| 40 34 34 20 52 65 74 75 | 72 6e 20 61 20 6c 69 73 |@44 Retu|rn a lis|
|000049c0| 74 20 6f 66 20 61 6c 6c | 20 72 65 67 75 6c 61 72 |t of all| regular|
|000049d0| 20 66 69 6c 65 73 20 69 | 6e 20 44 49 52 2e 1f 0a | files i|n DIR...|
|000049e0| 28 64 65 66 61 6c 69 61 | 73 20 27 6e 6e 68 65 61 |(defalia|s 'nnhea|
|000049f0| 64 65 72 2d 64 69 72 65 | 63 74 6f 72 79 2d 72 65 |der-dire|ctory-re|
|00004a00| 67 75 6c 61 72 2d 66 69 | 6c 65 73 20 23 5b 28 64 |gular-fi|les #[(d|
|00004a10| 69 72 29 20 22 c0 09 c2 | 5c 22 c3 1c 1d 0d ab 92 |ir) "...|\"......|
|00004a20| c6 0d 40 21 ab 85 0d 40 | 0c 42 14 0d 89 41 15 88 |..@!...@|.B...A..|
|00004a30| aa 6b 0c 9f 2a 87 22 20 | 5b 64 69 72 65 63 74 6f |.k..*." |[directo|
|00004a40| 72 79 2d 66 69 6c 65 73 | 20 64 69 72 20 74 20 6e |ry-files| dir t n|
|00004a50| 69 6c 20 6f 75 74 20 66 | 69 6c 65 73 20 66 69 6c |il out f|iles fil|
|00004a60| 65 2d 72 65 67 75 6c 61 | 72 2d 70 5d 20 33 20 28 |e-regula|r-p] 3 (|
|00004a70| 23 24 20 2e 20 31 38 38 | 36 38 29 5d 29 0a 28 64 |#$ . 188|68)]).(d|
|00004a80| 65 66 61 6c 69 61 73 20 | 27 6e 6e 68 65 61 64 65 |efalias |'nnheade|
|00004a90| 72 2d 73 6b 65 6c 65 74 | 6f 6e 2d 72 65 70 6c 61 |r-skelet|on-repla|
|00004aa0| 63 65 20 27 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |ce '(mac|ro . #[(|
|00004ab0| 66 72 6f 6d 20 26 6f 70 | 74 69 6f 6e 61 6c 20 74 |from &op|tional t|
|00004ac0| 6f 20 72 65 67 65 78 70 | 29 20 22 c0 c1 c2 c3 c4 |o regexp|) ".....|
|00004ad0| c5 c6 0e 07 ab 83 c8 aa | 81 c9 0e 5c 6e cb 42 42 |........|...\n.BB|
|00004ae0| cc cd 0e 0e ad 84 cf 0e | 0e 44 d0 42 42 42 42 42 |........|.D.BBBBB|
|00004af0| d1 42 42 42 42 42 42 42 | 87 22 20 5b 6c 65 74 20 |.BBBBBBB|." [let |
|00004b00| 28 28 6e 65 77 20 28 67 | 65 6e 65 72 61 74 65 2d |((new (g|enerate-|
|00004b10| 6e 65 77 2d 62 75 66 66 | 65 72 20 22 20 2a 6e 6e |new-buff|er " *nn|
|00004b20| 68 65 61 64 65 72 20 72 | 65 70 6c 61 63 65 2a 22 |header r|eplace*"|
|00004b30| 29 29 20 28 63 75 72 20 | 28 63 75 72 72 65 6e 74 |)) (cur |(current|
|00004b40| 2d 62 75 66 66 65 72 29 | 29 20 28 73 74 61 72 74 |-buffer)|) (start|
|00004b50| 20 28 70 6f 69 6e 74 2d | 6d 69 6e 29 29 29 20 28 | (point-|min))) (|
|00004b60| 73 65 74 2d 62 75 66 66 | 65 72 20 6e 65 77 29 20 |set-buff|er new) |
|00004b70| 28 62 75 66 66 65 72 2d | 64 69 73 61 62 6c 65 2d |(buffer-|disable-|
|00004b80| 75 6e 64 6f 20 28 63 75 | 72 72 65 6e 74 2d 62 75 |undo (cu|rrent-bu|
|00004b90| 66 66 65 72 29 29 20 28 | 73 65 74 2d 62 75 66 66 |ffer)) (|set-buff|
|00004ba0| 65 72 20 63 75 72 29 20 | 28 67 6f 74 6f 2d 63 68 |er cur) |(goto-ch|
|00004bb0| 61 72 20 28 70 6f 69 6e | 74 2d 6d 69 6e 29 29 20 |ar (poin|t-min)) |
|00004bc0| 77 68 69 6c 65 20 72 65 | 67 65 78 70 20 72 65 2d |while re|gexp re-|
|00004bd0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 73 |search-f|orward s|
|00004be0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 66 72 |earch-fo|rward fr|
|00004bf0| 6f 6d 20 28 6e 69 6c 20 | 74 29 20 28 69 6e 73 65 |om (nil |t) (inse|
|00004c00| 72 74 2d 62 75 66 66 65 | 72 2d 73 75 62 73 74 72 |rt-buffe|r-substr|
|00004c10| 69 6e 67 20 63 75 72 20 | 73 74 61 72 74 20 28 70 |ing cur |start (p|
|00004c20| 72 6f 67 31 20 28 6d 61 | 74 63 68 2d 62 65 67 69 |rog1 (ma|tch-begi|
|00004c30| 6e 6e 69 6e 67 20 30 29 | 20 28 73 65 74 2d 62 75 |nning 0)| (set-bu|
|00004c40| 66 66 65 72 20 6e 65 77 | 29 29 29 20 28 67 6f 74 |ffer new|))) (got|
|00004c50| 6f 2d 63 68 61 72 20 28 | 70 6f 69 6e 74 2d 6d 61 |o-char (|point-ma|
|00004c60| 78 29 29 20 74 6f 20 69 | 6e 73 65 72 74 20 28 28 |x)) to i|nsert ((|
|00004c70| 73 65 74 2d 62 75 66 66 | 65 72 20 63 75 72 29 20 |set-buff|er cur) |
|00004c80| 28 73 65 74 71 20 73 74 | 61 72 74 20 28 70 6f 69 |(setq st|art (poi|
|00004c90| 6e 74 29 29 29 20 28 28 | 69 6e 73 65 72 74 2d 62 |nt))) ((|insert-b|
|00004ca0| 75 66 66 65 72 2d 73 75 | 62 73 74 72 69 6e 67 20 |uffer-su|bstring |
|00004cb0| 63 75 72 20 73 74 61 72 | 74 20 28 70 72 6f 67 31 |cur star|t (prog1|
|00004cc0| 20 28 70 6f 69 6e 74 2d | 6d 61 78 29 20 28 73 65 | (point-|max) (se|
|00004cd0| 74 2d 62 75 66 66 65 72 | 20 6e 65 77 29 29 29 20 |t-buffer| new))) |
|00004ce0| 28 63 6f 70 79 2d 74 6f | 2d 62 75 66 66 65 72 20 |(copy-to|-buffer |
|00004cf0| 63 75 72 20 28 70 6f 69 | 6e 74 2d 6d 69 6e 29 20 |cur (poi|nt-min) |
|00004d00| 28 70 6f 69 6e 74 2d 6d | 61 78 29 29 20 28 6b 69 |(point-m|ax)) (ki|
|00004d10| 6c 6c 2d 62 75 66 66 65 | 72 20 28 63 75 72 72 65 |ll-buffe|r (curre|
|00004d20| 6e 74 2d 62 75 66 66 65 | 72 29 29 20 28 73 65 74 |nt-buffe|r)) (set|
|00004d30| 2d 62 75 66 66 65 72 20 | 63 75 72 29 29 5d 20 31 |-buffer |cur))] 1|
|00004d40| 32 5d 29 29 0a 23 40 36 | 32 20 44 6f 20 61 20 66 |2])).#@6|2 Do a f|
|00004d50| 61 73 74 20 72 65 70 6c | 61 63 65 6d 65 6e 74 20 |ast repl|acement |
|00004d60| 6f 66 20 46 52 4f 4d 20 | 74 6f 20 54 4f 20 66 72 |of FROM |to TO fr|
|00004d70| 6f 6d 20 70 6f 69 6e 74 | 20 74 6f 20 70 6f 69 6e |om point| to poin|
|00004d80| 74 2d 6d 61 78 2e 1f 0a | 28 64 65 66 61 6c 69 61 |t-max...|(defalia|
|00004d90| 73 20 27 6e 6e 68 65 61 | 64 65 72 2d 72 65 70 6c |s 'nnhea|der-repl|
|00004da0| 61 63 65 2d 73 74 72 69 | 6e 67 20 23 5b 28 66 72 |ace-stri|ng #[(fr|
|00004db0| 6f 6d 20 74 6f 29 20 22 | c0 c1 21 70 65 1a 1b 89 |om to) "|..!pe...|
|00004dc0| 1c 71 88 c5 70 21 88 0b | 71 88 65 62 88 c6 0e 07 |.q..p!..|q.eb....|
|00004dd0| c8 c9 23 ab 98 ca 0b 5c | 6e cb 94 0c 71 88 23 88 |..#....\|n...q.#.|
|00004de0| 64 62 88 0e 0c 63 88 0b | 71 88 60 12 aa 60 ca 0b |db...c..|q.`..`..|
|00004df0| 5c 6e 64 0c 71 88 23 88 | cd 0b 65 64 23 88 ce 70 |\nd.q.#.|..ed#..p|
|00004e00| 21 88 0b 71 2b 87 22 20 | 5b 67 65 6e 65 72 61 74 |!..q+." |[generat|
|00004e10| 65 2d 6e 65 77 2d 62 75 | 66 66 65 72 20 22 20 2a |e-new-bu|ffer " *|
|00004e20| 6e 6e 68 65 61 64 65 72 | 20 72 65 70 6c 61 63 65 |nnheader| replace|
|00004e30| 2a 22 20 73 74 61 72 74 | 20 63 75 72 20 6e 65 77 |*" start| cur new|
|00004e40| 20 62 75 66 66 65 72 2d | 64 69 73 61 62 6c 65 2d | buffer-|disable-|
|00004e50| 75 6e 64 6f 20 73 65 61 | 72 63 68 2d 66 6f 72 77 |undo sea|rch-forw|
|00004e60| 61 72 64 20 66 72 6f 6d | 20 6e 69 6c 20 74 20 69 |ard from| nil t i|
|00004e70| 6e 73 65 72 74 2d 62 75 | 66 66 65 72 2d 73 75 62 |nsert-bu|ffer-sub|
|00004e80| 73 74 72 69 6e 67 20 30 | 20 74 6f 20 63 6f 70 79 |string 0| to copy|
|00004e90| 2d 74 6f 2d 62 75 66 66 | 65 72 20 6b 69 6c 6c 2d |-to-buff|er kill-|
|00004ea0| 62 75 66 66 65 72 5d 20 | 36 20 28 23 24 20 2e 20 |buffer] |6 (#$ . |
|00004eb0| 31 39 37 38 36 29 5d 29 | 0a 23 40 36 39 20 44 6f |19786)])|.#@69 Do|
|00004ec0| 20 61 20 66 61 73 74 20 | 72 65 67 65 78 70 20 72 | a fast |regexp r|
|00004ed0| 65 70 6c 61 63 65 6d 65 | 6e 74 20 6f 66 20 46 52 |eplaceme|nt of FR|
|00004ee0| 4f 4d 20 74 6f 20 54 4f | 20 66 72 6f 6d 20 70 6f |OM to TO| from po|
|00004ef0| 69 6e 74 20 74 6f 20 70 | 6f 69 6e 74 2d 6d 61 78 |int to p|oint-max|
|00004f00| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6e 6e |...(defa|lias 'nn|
|00004f10| 68 65 61 64 65 72 2d 72 | 65 70 6c 61 63 65 2d 72 |header-r|eplace-r|
|00004f20| 65 67 65 78 70 20 23 5b | 28 66 72 6f 6d 20 74 6f |egexp #[|(from to|
|00004f30| 29 20 22 c0 c1 21 70 65 | 1a 1b 89 1c 71 88 c5 70 |) "..!pe|....q..p|
|00004f40| 21 88 0b 71 88 65 62 88 | c6 0e 07 c8 c9 23 ab 98 |!..q.eb.|.....#..|
|00004f50| ca 0b 5c 6e cb 94 0c 71 | 88 23 88 64 62 88 0e 0c |..\n...q|.#.db...|
|00004f60| 63 88 0b 71 88 60 12 aa | 60 ca 0b 5c 6e 64 0c 71 |c..q.`..|`..\nd.q|
|00004f70| 88 23 88 cd 0b 65 64 23 | 88 ce 70 21 88 0b 71 2b |.#...ed#|..p!..q+|
|00004f80| 87 22 20 5b 67 65 6e 65 | 72 61 74 65 2d 6e 65 77 |." [gene|rate-new|
|00004f90| 2d 62 75 66 66 65 72 20 | 22 20 2a 6e 6e 68 65 61 |-buffer |" *nnhea|
|00004fa0| 64 65 72 20 72 65 70 6c | 61 63 65 2a 22 20 73 74 |der repl|ace*" st|
|00004fb0| 61 72 74 20 63 75 72 20 | 6e 65 77 20 62 75 66 66 |art cur |new buff|
|00004fc0| 65 72 2d 64 69 73 61 62 | 6c 65 2d 75 6e 64 6f 20 |er-disab|le-undo |
|00004fd0| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00004fe0| 64 20 66 72 6f 6d 20 6e | 69 6c 20 74 20 69 6e 73 |d from n|il t ins|
|00004ff0| 65 72 74 2d 62 75 66 66 | 65 72 2d 73 75 62 73 74 |ert-buff|er-subst|
|00005000| 72 69 6e 67 20 30 20 74 | 6f 20 63 6f 70 79 2d 74 |ring 0 t|o copy-t|
|00005010| 6f 2d 62 75 66 66 65 72 | 20 6b 69 6c 6c 2d 62 75 |o-buffer| kill-bu|
|00005020| 66 66 65 72 5d 20 36 20 | 28 23 24 20 2e 20 32 30 |ffer] 6 |(#$ . 20|
|00005030| 31 35 38 29 5d 29 0a 23 | 40 34 30 20 53 74 72 69 |158)]).#|@40 Stri|
|00005040| 70 20 61 6c 6c 20 0d 27 | 73 20 66 72 6f 6d 20 74 |p all .'|s from t|
|00005050| 68 65 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |he curre|nt buffe|
|00005060| 72 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6e |r...(def|alias 'n|
|00005070| 6e 68 65 61 64 65 72 2d | 73 74 72 69 70 2d 63 72 |nheader-|strip-cr|
|00005080| 20 23 5b 6e 69 6c 20 22 | c0 c1 21 70 65 1a 1b 89 | #[nil "|..!pe...|
|00005090| 1c 71 88 c5 70 21 88 0b | 71 88 65 62 88 c6 c7 c8 |.q..p!..|q.eb....|
|000050a0| c9 23 ab 94 ca 0b 5c 6e | cb 94 0c 71 88 23 88 64 |.#....\n|...q.#.d|
|000050b0| 62 88 0b 71 88 60 12 aa | 65 ca 0b 5c 6e 64 0c 71 |b..q.`..|e..\nd.q|
|000050c0| 88 23 88 cc 0b 65 64 23 | 88 cd 70 21 88 0b 71 2b |.#...ed#|..p!..q+|
|000050d0| 87 22 20 5b 67 65 6e 65 | 72 61 74 65 2d 6e 65 77 |." [gene|rate-new|
|000050e0| 2d 62 75 66 66 65 72 20 | 22 20 2a 6e 6e 68 65 61 |-buffer |" *nnhea|
|000050f0| 64 65 72 20 72 65 70 6c | 61 63 65 2a 22 20 73 74 |der repl|ace*" st|
|00005100| 61 72 74 20 63 75 72 20 | 6e 65 77 20 62 75 66 66 |art cur |new buff|
|00005110| 65 72 2d 64 69 73 61 62 | 6c 65 2d 75 6e 64 6f 20 |er-disab|le-undo |
|00005120| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00005130| 0d 22 20 6e 69 6c 20 74 | 20 69 6e 73 65 72 74 2d |." nil t| insert-|
|00005140| 62 75 66 66 65 72 2d 73 | 75 62 73 74 72 69 6e 67 |buffer-s|ubstring|
|00005150| 20 30 20 63 6f 70 79 2d | 74 6f 2d 62 75 66 66 65 | 0 copy-|to-buffe|
|00005160| 72 20 6b 69 6c 6c 2d 62 | 75 66 66 65 72 5d 20 36 |r kill-b|uffer] 6|
|00005170| 20 28 23 24 20 2e 20 32 | 30 35 34 30 29 5d 29 0a | (#$ . 2|0540)]).|
|00005180| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 4d 88 |(byte-co|de "..M.|
|00005190| c2 c3 4d 88 c4 c5 4d 88 | c6 c7 0e 08 5c 22 ab 84 |..M...M.|....\"..|
|000051a0| c9 ca 21 88 cb cc 21 88 | cd ce 21 87 22 20 5b 6e |..!...!.|..!." [n|
|000051b0| 6e 68 65 61 64 65 72 2d | 72 75 6e 2d 61 74 2d 74 |nheader-|run-at-t|
|000051c0| 69 6d 65 20 72 75 6e 2d | 61 74 2d 74 69 6d 65 20 |ime run-|at-time |
|000051d0| 6e 6e 68 65 61 64 65 72 | 2d 63 61 6e 63 65 6c 2d |nnheader|-cancel-|
|000051e0| 74 69 6d 65 72 20 63 61 | 6e 63 65 6c 2d 74 69 6d |timer ca|ncel-tim|
|000051f0| 65 72 20 6e 6e 68 65 61 | 64 65 72 2d 63 61 6e 63 |er nnhea|der-canc|
|00005200| 65 6c 2d 66 75 6e 63 74 | 69 6f 6e 2d 74 69 6d 65 |el-funct|ion-time|
|00005210| 72 73 20 63 61 6e 63 65 | 6c 2d 66 75 6e 63 74 69 |rs cance|l-functi|
|00005220| 6f 6e 2d 74 69 6d 65 72 | 73 20 73 74 72 69 6e 67 |on-timer|s string|
|00005230| 2d 6d 61 74 63 68 20 22 | 58 45 6d 61 63 73 5c 5c |-match "|XEmacs\\|
|00005240| 7c 4c 75 63 69 64 22 20 | 65 6d 61 63 73 2d 76 65 ||Lucid" |emacs-ve|
|00005250| 72 73 69 6f 6e 20 72 65 | 71 75 69 72 65 20 6e 6e |rsion re|quire nn|
|00005260| 68 65 61 64 65 72 78 6d | 20 72 75 6e 2d 68 6f 6f |headerxm| run-hoo|
|00005270| 6b 73 20 6e 6e 68 65 61 | 64 65 72 2d 6c 6f 61 64 |ks nnhea|der-load|
|00005280| 2d 68 6f 6f 6b 20 70 72 | 6f 76 69 64 65 20 6e 6e |-hook pr|ovide nn|
|00005290| 68 65 61 64 65 72 5d 20 | 33 29 0a |header] |3). |
+--------+-------------------------+-------------------------+--------+--------+
